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Guida all'input dei programmi sullo ZX Spectrum 


Le "parole'' comprese tra perente si graffe indicarto ■ caratteri grafìa pre 
definii (G). il tasto (numero seguente la G). la necessità di premere il tosto 
insieme a CAPÌ S HIF7 (eventuale 5 precedente la G) e il numero d< npel- 
ziom del tasto richieste (eventuale numero all'inizio della parola "). I ca¬ 
ratteri grafici definiti dal programma sono invece indicati da lettere maiu¬ 
scole (corrispondenti al tosto da usare) sottolineate 


| Quando leggete ][ Premete 

{Gl} 

{G2} 

(G3} 

{G4 } 

{G5} 

(G6} 

(G 7} 

(G8 } 



(SGl} 
{SG2} 
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{SG4} 
(SG5) 
{SG6} 
{SG7} 
{SG8} 
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Vedrete 



[ Quando leggete "|[ Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 
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N 

O 

P 
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S* non iiflf 
<)•> .n n«4o 

C. 

MtHOCCMnAO 

n*»m«n<« 

CAPS SMir I 
» * 


ez: 


Simbolo grafico 
definito nel 
programma In uso. 



Guida per l'input dei programmi versioni VIC IO e C64 


Notate che i listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 



{CLR} 

{HOME} 
{SU} " 
{GIU'} 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT } 
(RED) 


SMlH IClB'MOMt 


ClR/HOMt 


SMiM |n cbsb u 


Q 

limali 


•SHlM 

I 

t=CBSB =»| 


■■■■■ 


C=C8$B =»] 


□ 

□ 



E 


0 


{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
[<1>] 
(< 2>1 
l< 3> 1 
l<4>) 
l < 5 > ] 
l<6>} 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario ", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
| controllo del cursore o dei colori. 
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Il sole e la luna 

MMnMMKBnuwMMMnnaannoai 

wmmmmm 


Questo programmo di astronomia simula la ro¬ 
tazione apparente del sole e della luna attor¬ 
no alla Terra e le fasi della luna giorno dopo 
giorno a cominciare da una data a piacere. 
Vengono anche mostrate le locazioni dei nodi 
ascendenti e discendenti della luna ed il suo 
perigeo. La pagina ad alta risoluzione del vo¬ 
stro Apple vi mostrerà tutte queste cose con¬ 
temporaneamente alla data e alla elongazio¬ 
ne della luna. Il programma inoltre prevede le 
eclissi o la possibilità delle eclissi stesse. 
Scrivete il programma e date RUN. Vi verrà in¬ 
dicato che potete: 

1 — Fermare il programma in qualsiasi mo¬ 

mento premendo S (Stop). 

2 — Ricominciare premendo SPAZIO 


10 REM •** SOLE E LUNA *** 

100 REM 

110 DIM X(4,2)* DIM Y(4,2>; DIM 
A(4,2)i DIM S<12) 

120 GOTO 6000 

199 REM 

200 1F XX - 0 AND AA > 0 THEN LV 

* Pii RETURN 

210 IF XX « 0 AND YY < 0 THEN W 
« 3 * PI / 2: RETURN 
220 W « ATN <YY / XX) 

230 IF XX < 0 THEN W * W ♦ PI 
240 RETURN 
290 REM 

300 V » V ♦ 2 » NiO ■ 0 ♦ 2 * H 

310 MA - U - 0 : E1 * MA 

320 EA ■ MA E « SIN <E1> 

330 IF ABS (E1 - EA) > .0005 THEN 
E1 ■ EAi GOTO 320 
340 YY « SOR <1 - E « E) « SIN 
< EA) 

350 XX - COS < EA) - E 

360 RA « SOR <XX » XX ♦ YY * YY) 

370 GOSUB 200 
380 A * W ♦ 0 

390 X ■ HU ♦ K * RA * COS (A) 

400 Y»ET-K*RA* SIN (A) 

410 RETURN 

499 REM 

500 0 « 0 ♦ Z * H 

510 XO » K # COS (O)iYO * K « SIN 
<Q) 

520 RETURN 
598 REM 


3 — Partire da una nuova data premendo A/1. 

4 — Uscire dal programma premendo ESC. 
Dovrete poi digitare la data nella sequenza gior¬ 
no. mese ed anno separati da una virgola. Il 
programma traccerà una circonferenza di ri¬ 
ferimento con suddivisioni di IO gradi, una cro¬ 
ce al centro indicante la terra, la luna ed il so¬ 
le (con i raggi). Sulla parte destra dello scher¬ 
mo apparirà la luna nella sua corretta fase e 
la data di riferimento. Se si verifica una eclisse 
il programma vi indicherà l'evento con una 
scritta lampeggiante (provate ad esempio le da¬ 
te a partire dal 06.01.1982). 

Da questo momento non avrete più bisogno del 
calendario per sapere in quale fase si trova la 
luna. Buon divertimento! 


599 REM 

600 DA « A<1,1) - ACO,l) 

605 IF DA > 2 * PI THEN DA * DA - 
2 * Pii GOTO 605 

610 IF DA < 0 THEN DA * DA ♦ 2 * 


615 

PIi GOTO 610 

EL - DA 


620 

IF DA > PI THEN DA - DA - 

PI 

630 

lU * 1 : GOTO 640 

U * 0 


640 

VTAB 241 HTAB 29: PRINT "1 

ELO 

650 

NG.1"| 

* R1GHT* < STRS < INT 

(E 

660 

L * F ♦ .5) ♦ 1000) ,3) 
HTAB 36l PRINT SU*ji HTAB 

1 

670 

FOR l » SI TO - SI STEP 

1 

RR - SOR <S2 - I * I) 

• 

680 


690 

IF W - 0 THEN HCOLOR» 3i 

GOTO 

700 

710 

HCOLOR* 0 


710 

HPLOT TF ♦ RR * COS (DA) 

.ET 

720 

- I TO TF ♦ RR.ET - I 

IF W ■ 0 THEN HCOLQR- Oi 

GOTO 

730 

740 

HCOLOR» 3 


740 

HPLOT TF - RR.ET - l TO TF ♦ 

750 

RR # COS (DA),ET - I 

NEXT 


760 

RETURN 


950 

HTAB 20 - LEN (Q*> / Zi 

PRINT 

999 

0%: PRINT : RETURN 

REM ’ 


1000 2 » Z ♦ 1 


1200 REM 
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1201 REM 

1202 REM SOLE 

1210 U - US:N * NSiE = ES:K » KS: 

0 » OS:H * HS 
1220 GOSUB 300 

1230 X< 0,2) » XiY< 0,2) - Y:A(0,2) 

* A 

1300 REM LUNA 

1310 U - UM:N » NMtE * EMsK « KMi 
0 « OM j H - HM 
1320 GOSUB 300 

1330 X<1,2) - XiY<1,2) - YiA(l,2> 

- A 

1398 REM 

1399 REM 

1400 REM PUNTO D'INCONTRO 
1410 0 « UN :H « NNiK ■ KN 
1420 GOSUB 500 

1430 X(2,2) » HU ♦ XO:Y(2,2) - ET 

- YO:A(2,2) » 0 

1440 X( 3,2) « HU - XO : Y( 3,2) - ET 

♦ YO :A(3,2) - 0 ♦ PI 
1500 REM PERIELIO 

1510 0 « OMiH = HM:K ■ KP 
1520 GOSUB 500 

1530 X(4,2> “ HU ♦ XO:Y(4,2) * ET 

- YO:A( 4,2) - 0 

1599 REM 

1600 XDRALI 1 AT X<0,0),Y(0,0) 

1610 XDRALI 2 AT X(1,0),Y(1,0> 

1620 XDRAW 3 AT X(2,0>,Y<2,0> 

1630 XDRAW 4 AT X(3,0>,Y(3,0> 

1640 XDRAW 5 AT X(4,0>,Y<4,0) 

1698 REM 

1699 REM 

1700 IF 1NT < D) > SCM) THEN D « 

D - S<M>:M * M ♦ 1 

1710 IF M > 12 THEN M * M - 12lA 
A * AA ♦ 1 :T ■ T ♦ 1 
1720 , IF T = 4 THEN T * 0 
1730 IF T = 0 THEN S(2) * 29: GOTO 
1750 

1740 S(2> « 28 

1750 HOME i UTAB 22: HTAB 29 
1760 PRINT RIGHT* (( STR* < 1NT 

< D) ♦ 100)),2); -; 

1765 PRINT RIGHT* << STR* <M ♦ 
100)),2){"AA 

1799 REM 

1800 DRAW 1 AT X(0,1),Y(0,1) 

1810 DRAW 2 AT X<1 , 1 ) ,Y(1 , 1) 

1820 DRAW 3 AT X(2,1),Y<2,1) 

1830 DRAW 4 AT X(3,1),Y(3,1) 

1840 DRAW 5 AT X(4,1),Y(4,1> 

1899 REM 

1900 GOSUB 600 
1950 Q » FRE <0> 

2000 DI « A(0,1 ) - A(1,1):D2 * A< 
0,2) - A(1,2) 

2010 IF SGN ( SIN (DI)) * SGN 

< SIN (D2)) THEN 5000 

2020 C - SIN (DI) / < SIN (DI) - 
SIN (D2)) 

2030 SK - A(0,1) - A(2,l) ♦ C * < 

A(0,2) - A(2,2) - A(0,1) ♦ A 
(2,1)) 

2040 LI - ABS ( COS (SK)) 

2099 REM 


2100 IF COS (DI) > 0 AND LI > 0 

.96039 THEN Q* = "ECLISSI SO 
LARE"! GOTO 2200 

2110 IF COS (DI) > 0 AND LI > 0 
.94604 THEN Q* a "POSSIBILE 
ECLISSI SOLARE": GOTO 2200 
2120 IF COS (DI) < 0 AND LI > 0 
.98723 THEN Q* » “ECLISSI LU 
NARE": GOTO 2200 

2130 IF COS (DI) < 0 AND LI > 0 
.97696 THEN Q* « "POSSIBILE 
ECLISSI LUNARE": GOTO 2200 
2140 GOTO 5100 

2200 UTAB 22 : HTAB 1: FLASH : PRINT 

Q* 

2210 NORMAL : PRINT : CALL BE: CALL 
BE 

2220 PRINT "RI PARTENZA;(SPAZIO)" 
i GET SU* 

2230 GOTO 5200 

5000 FOR I » 0 TO 800: NEXT 

5100 PE * PEEK (49152) 


51 10 

IF PE * 

155 THEN SU 

« 

PEEK 


(49168); 

TEXT 1 HOME 

: 

END 

5120 

IF PE * 

205 THEN SU 

m 

PEEK 


(49168): 

GOTO 6700 



5130 

IF PE « 

211 THEN SU 

m 

PEEK 


(49168): 

GET SU* 



5199 

REM 




5200 

FOR I a 

0 Tù 4 



5210 

X(I ,0) * 

X(I,l):X(I , 

1 ) 

- X(I 


, 2 ) 

5220 Y<I,0) » Y(I,1):Y<I,1) * Y(I 
,2) 

5230 A( 1 ,0 ) * A( 1,1) :A( 1,1) « Ad 

,2) 

5240 NEXT 
5250 D = D ♦ 1 
5260 HCOLGR* 3 
5270 GOTO 1000 
6000 TEXT : HOME : UTAB 6 
6010 0$ * “ MOUIMENTI APPARENTI": 
GOSUB 950 

6020 Q* = " DI": GOSUB 950 
6030 ù* - " SOLE E LUNA"j GOSUB 9 
50 

6040 Gl* » - INTORNO ALLA TERRA": GOSI 
950 

6100 PI = 3.14159265 :HU « 100:ET = 

80:F - 180 / PI 

6110 SI * 30 :S2 « ?00:TF = 240 
6120 BE a 64477: REM BELL 
6200 REM SOLE 

6210 US » 4.88968:NS « .01720279: 

ES * .0167259 j KS » 7 2 
6220 OS « 4.92ò24:HS * .00000082 
6300 REM 

6310 UM « 5.43063:NM = .2299715:E 
M » .0549005 : KM * 72 
6320 OM = 4.4ò361 :HM * .001944368 

6400 REM ASCENDENTE 
6420 UN » 3.1188827:NN » - Q.000 

924219 :KN » *3 

6500 REM PERIELIO DELLA LUNA 
6510 KP » 59 

6599 REM 

6600 RESTORE : FOR I » 0 TO 66 
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6610 READ Q: POKE 768 ♦ I,Q: NEXT 

6620 POKE 232,00; POKE 233,03 
6650 S<i> - 31 : S< 2 > = 28:S<3) « 3 

1:S<4> « 30 ; S< 5> * 3l:S<6> « 
30 

6655 S< 7) * 3lìS< 8) « 31:8(9) - 3 
0:S(10) - 31 :S<11) * 30 ;S(12 
) * 31 

6700 TEXT : HOME : VTaB 6 
6710 PRINT : PRJNT "SCELTE POSSI 
BILI DURANTE L * OSSERVA2I ONE" 
i PRINT 

6720 PRINT "SOSPENSIONE -> PR 

EMERE <S>" 


7220 GOSUB 300 

7230 X(0,1 ) » XiY< 0,1) « Y:A< 0,1 ) 

- A 

7300 REM CALCOLATE MOON 

7310 U - VMiN - NM:E - EM ; K « KM: 

0 « OMiH - HM 
7320 GOSUB 300 

7330 X( 1 f 1) - X :Y<1, 1 > - Y:A<1,1) 

- A 

7^00 REM CALCULATE NODES 
7410 0 » VNiH » NNiK * KN 
7420 GOSUB 500 

7430 X< 2,1) - HU ♦ XO:Y< 2,1) * ET 

- YO:A< 2,1) « 0 

7440 X(3,1) - HU - XO:Y(3,1> - ET 
♦ YOiA<3,1) ■ 0 ♦ PI 


6730 PRINT "RI PARTENZA -> PR 

EMERE <SPAZI0>" 

6740 PRINT "NUOL»A DATA -> PR 

EMERE <M>" 

6750 PRINT "FINE PROGR. -> PR 

EMERE <ESC>" 

6760 PRINT i PRINT ’: PRINT 

6800 INPUT "DATA INIZIO < GG,MM,A 
AAA ) "j D,M, AA 

6810 IF M < 1 OR M > 12 THEN 670 
0 

6820 IF M ■ 2 AND D < 30 THEN 69 
00 

6830 IF D > S<M> THEN 6700 

6899 ‘ REM 

6900 T - INT <(AA / 4 - INT <AA 

/ 4)) « 4 ♦ .05) 

6910 IF M < 3 THEN AO - AA - 1:M 
0 - M ♦ 13: GOTO 6930 

6920 AO - AA:M0 * M ♦ 1 


7500 

REM CALC PERIR l 

7510 

0 - OM ; H « HM ; K 

- KP 

7520 

GOSUB 500 


7530 

X< 4,1) - HU ♦ XO:Y< 4,1) - ET 


- YO:A<4,1) » 0 


8000 

HGR : HCOLOR- 3: SCALE- li 
n 

8010 

FOR I - 0 TO 2 

* PI STEP PI 


/ 18 


8020 

HPLOT HU ♦ ET # 

COS <I>,ET 


“ ET # SIN <I) 


8030 

NEXT 


8040 

HPLOT HU,70 TO 

HU, 90 

8050 

HPLOT 90,ET TO 

110,ET 

8060 

HPLOT 16,ET TO 

20, ET 

8070 

HPLOT 180.ET TO 

184.ET 

8080 

GOTO 1000 


9000 

DATA 5,0,12 ,0, 
,0,62,0,37,63,54 

V&SWS 

l“J,,£40,O 


3,23,54 


6930 Z » INT <365.25 » AO) ♦ INT 
<30.6001 » MO) ♦ D - 715953. 

5 

6950 FOR I - 0 TO 4:X<I,0) * 0:Y 
<1 ,0) - 180 :A<1 ,0) - 0: NEXT 

7200 REM CALCULATE START SUN 
7210 V - VSiN - NSiE - ES:K - KS: 

0 - OSiH - HS 


9010 DATA 14.45,213,19,246,24,24 
,192,24,40,5 ,64,72,32,76,13 
7,146, 18 

9020 DATA 45,0,37,63,54,45,37,2 
28,63,23,54,14,45,5,0,103,21 

9025 DATA 0,245,7,32,0,172,30,7 
,32,0 
9030 END 



«oppia 




Taniche di benzina 


. — 


Questo programma ripropone un gioco classi¬ 
co nel quale chi prende l'ultima tanica di ben¬ 
zina ha perso la partita! 

Sullo schermo appaiono 18 toniche di benzina 
disposte su tre file. Si gioca contro il computer 


e una monetina decide chi dovrà giocare per 
primo. Il giocatore e l'Apple potranno prende¬ 
re ad ogni turno, 1, 2 o 3 toniche di benzina. 
Attenzione... il computer gioca molto bene e 
non è affatto facile batterlo. 
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32 Q * - 16384 :GQ * - ló3ò8:U * 

- 16336 :G* « CHR* (7) 

1010 N » 18 

1015 HOME i INVERSE ; VTAB 21I PRINT 
SPC< 40)1 VTAB 21: HTAB lót 
PRINT • -i GOSUB 1 

225: NORMAL 

1020 VTAB 22: PRINT "CHI PRENDE 
L'ULTIMA TANICA... HA PERSO! 

m 

1021 REM SORTEGGIO 

1022 PRINT “ -- 

- -». print - 

SCEGLI PER PRIMO: TESTA 0 C 
ROCECT/C): M j: GET A*: PRINT 
A* : 

1030 IF A» < > "T" AND A* < > 

•C“ THEN run 
1032 POKE Giù , 0 

1035 HOME : PRINT - GIRA—)";: FOR 
I = 1 TO 300: NEXT ;J » 1NT 

< RND <1) # 2) 

1040 FOR I = 1 TO 60: PRINT 

: FOR II « 1 TO 3:S » PEEK 

< U): NEXT : NEXT 

1045 INVERSE : IF J = 0 THEN PRINT 
■ TESTA "; 

1046 IF J * 1 THEN PRINT " CROC 
E 

1047 NOPMAL : PRINT G* 

1050 FOR I M TO 999: NEXT 
1055 IF <J » 1 AND A* * "C") OR 

<J « 0 AND A* » "T") THEN 10 
65 

1057 PRINT "HO VINTO IO . .— GIO 
CO PER PRIMO..." 

1060 GOTO 1125 

1065 PRINT "HAI VINTO TU ...—Gl 
OCA PER PRIMO... " 

1070 FOR I * 1 TO 999: NEXT 
1075 REM PRENDI UN NUMERO 
1080 HOME : PRINT "NON DEVI PREN 
DERE L'ULTIMA TANICA!! 

PRINT "-" 

1085 PRINT N;" RIMASTE. VUOI 1, 

203 TANICHE 

1090 COLOR* 15: PLOT 39,44: COLOR» 

7: PLOT 39,45 

1095 K « PEEK (Q): IF K < 176 OR 
K > 185 THEN 1095 

1096 POKE QQ,0 

1100 K * K - 176: IF K > 0 AND K < 

4 THEN 1115 

1105 HOME : PRINT " SPIACENTE M 
A DEVI BATTERE 1, 2 OR 3... 

: GOTO 1085 

1115 GOSUB 1157: HOME : PRINT " 

HAI RIMOSSO “; CARD*: GOSUB 
1190 

1120 REM VISUALIZZA LE TANICHE 

1125 IF N * 1 THEN 1180 

1127 lF N > 16 OR N « 13 OR N » 

9 OR N * 5 THEN 1135 
1130 K - N - 1 - INT <(N - 1) / 

4) * 4: GOTO 1140 
1135 K « 1 

1140 GOSUB 1157: FOR I * l TO 99 
9i NEXT 


1145 PRINT : PRINT " E' IL MIO 
TURNO. TOLGO "; CARD*: IF N < 

1 1. THEN 1148 

1146 FOR I ■ 1 TO 800: NEXT 
1148 GOSUB 1190 

1150 IF N - 1 THEN 1165 
1152 GOTO 1080 
1155 GOTO 1090 

1157 CARD* - *U t*\ TANICA. “: IF K 

. « 2 THEN CARD* * "DUE TANIC 

HE. " 

1158 IF K * 3 THEN CARD* « "TRE 
TANICHE. 

1159 RETURN 

1160 REM FINE 

1165 HOME : PRINT " HAI PRESO 
L'ULTIMA ED HAI PERSO!" 

1170 FOR I « 1 TO 999: NEXT : RUN 

1180 HOME : PRINT " DANNAZI ONE ! 

HAI VINTO! CHE FORTUNA!" 

1185 REM TOGLI LE TANICHE 

1190 COLOR* 0 
1195 FOR I * 1 TO K 

1200 IF N < 7 AND N > 0 THEN YY = 

26 

1201 IF N < 13 AND N > 6 THEN YY 

* 14 

1202 IF N > 12 THEN YY * 0 

1205 FOR J « 3 ♦ (N - INT <N 

6) * 6) * 6 TO 7 ♦ (N - INT 
<N / 6) # 6) * 6 

1210 VLIN YY,YY ♦ 10 AT J: FOR X 
- 1 TO 3 

1215 S * PEEK < U) ♦ PEEK (U) - 
PEEK (U) - PEEK (U): NEXT 
: NEXT iN * N - 1 : NEXT : RETURN 

1220 REM DISEGNO TANICHE 
1225 GR 

1230 COLOR- 15: HLIN 0,39 AT 11: 

HL1N 0,39 AT 39: HL1N 0,39 AT 
25: VLIN 0,39 AT 0: VLIN 0,3 
9 AT 39 

1235 FOR I - 0 TO 28 STEP 14: FOR 
J - 3 TO 33 STEP 6 
1245 COLOR- 5: HLIN J ♦ 1,J ♦ 3 AT 
I : PLOT J ♦ 1,1 ♦ 1 : PLOT J ♦ 

3,1 ♦ 1 

1250 COLOR* 9: FOR II « J TO J ♦ 

4: VLIN I ♦ 2,1 ♦ 10 AT II : NEXT 

1255 COLOR* 13: HLIN J,J 4 l AT 

I ♦ 4: HLIN J,J ♦ 3 AT I 4 5 

: HLIN J,J 4 4 AT I 4 6; HLIN 
J ♦ l,J ♦ 4 AT I 47: HLIN J 

♦ 3,J 4 4 AT I 4 8 

1260 FOR II - 1 TO 25: NEXT : FOR 

II - 1 TO 4 :S - PEEK <U): NEXT 
: NEXT : NEXT : RETURN 


Aspettiamo 
i tuoi lavori 
migliori! 


/ 












“Space Shuttle** 


* TI-99/4A 




Con io vostro ostronove stote ritornondo sullo 
terrò e otterrondo o Cope Cornoverol. Vi re¬ 
stono do compiere le ultime e più delicate ma¬ 
novre di atterraggio, guidati dal rodar dello base. 
Lanciate il programmo e. dopo lo visualizza¬ 
zione del titolo con sottofondo di un noto bra¬ 
no musicale, avrete sul video le istruzioni per 
l'atterraggio e la visualizzazione della posizio¬ 
ne iniziale della vostra navicella spaziale nel 


lou rem ******************** 

1 1 U REvl * * 

120 REM * SPACE SHUTTLE * 

1 30 REM * * 

1 4U REM * SY MO.R1 SOFT * 
lbO REM * * 

1 e* U REM * EXTENDED bASXC * 

17U REM * * 

lòu REM ******************** 

190 CALL CLEAR :: CALL SCREEN(2) 

ZOO FOR 1 = b TO b :: CALL COLOR(I 
,12,2):: NEXT 1 :: CALL COLOR 1 2, 
IO, 2 , *é , O , 2 , 3 , b f 2 ) 

2 ÌU CALL HCHak( l,2,ol,31):: CaLL 
HCHAKU4,2,b1,31 ) : : CALL VCHaR( 
2,2,01,20):: CALL VCHAR {2, 32,bl, 
2-*) 

220 FOR 1=4 TO JÙ :: CALL HCHARl 
ìd.,1 ,*2):: CALL riCHAR ( 1 o , 1,4 2 ) : : 
NEXT I 

2 3 U FOR 1 = ì 2 TO 1 b :: CALL VCHAR 
(1,4,42):: CALL VCHAR(1,30,42) : : 

NEXT 1 

2 40 W$ = " SPACE SHUTTLE" 

2SO DISPLAY AT(l4,3):W$;: : A=U 
Zb0 DISPLAY AT(22,1U):"MO.RI SOF 

*|ill 

2/0 1F A= 2 THEN 290 ELSE RESTORE 
3 JU 

2o 0 READ FR,TP :: 1F FK-U TUEH A 
• A+l :: GOTO 2/0 ELaE CALE SOUND 
( Y, * b , F K , 0 ) ; : 1F A K+2 THEN GOTO 
2b 0 

29U DISPLAY aTC>, 1 U) : "PREMI ENTE 
H" 

300 FOR 1=1 TO tt : : CL=INT(RND*1 
4)+3 :: CALL COLORII,CL,1 ): : NEX 
T 1 

31 0 DISPLAY AT(U,3):N$; 


campo del radar. Tale posizione sarà del tut¬ 
to casuale e limitata ai settori inferiori destro 
e sinistro; durante il gioco tale posizione verrà 
continuamente aggiornata. Se il vostro tenta¬ 
tivo di atterraggio avrà avuto successo, vi ver¬ 
ranno fatti i complimenti accompagnati dalla 
musichetta della presentazione , altrimenti vi sa¬ 
rà comunicato che vi siete schiantati e per qua¬ 
le motivo. 


32U CALL KEY(U,K,S) : : 1F S=0 THE 
N 290 ELSE 3 bO 

3JU DATA 1 47,100,220,1 SO,1 9t>,2S, 
ldS,2b,lb5,25,294,lUO,22U,l00,19 

0, * b 

340 DATA lbb,2b,1bS,2b,294,100,2 
2u,lUO,19b,2S,ìòS,2S,19b,2b,lbb, 
100,0,0 

3bO FOR 1 = 1 TO ò :: CALL COLOR(I 
,2,1) : : NEXT 1 : : GOTO 390 

jbO 1F A=1 THEN 1190 ELSE RESTOR 
E 3 jO 

3/0 READ FR,TP :: XF FR=0 THEN A 
=Afl :: GOTO 3oO ELSE CALL SOUND 
(TP* b,FR,0): : GOTO 37 0 
JbU RETURN 

jyU CALL CLEAR :: CALL SCREEN(l2 

) 

4 U 0 FOR 1 = 1 TU 6 :: CALL COLOR(I 
,2,1) : : NEXT 1 

410 PklNT "VUOI LE ISTRUZIONI ? 
b/N" 

4zO CALL KEY(0,K,ST) : : 1F ST*0 T 
HEN 420 ELSE IF K=/ti THEN b70 EL 
SE 1F K=b3 THEN 

430 ELSE IF K<>7b AND KOtìJ THEN 
420 

430 CALL CLEAR 

440 PR1NT "LO SPACE SHUTTLE DEVE 
ATTERRARE A CAPE CANaVERA 

L. " i : 

4bO PR1WT "PER L'ATTERRAGGIO SAK 
Al Al U-TATO DAL RADAR DI TERRA." 

4oO FRINT "LA TUA MISSIONE E'OUA 
SI FI- NITA. STAI ATTENTO AD EVE 
N- TUALI OSTACOLI E a FRENARE L 
A DISCESA SECONDO LE 1STRU-" 
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470 PR1NT "ZlONl CHE TX PERVENGO 
NO UA TERRA. TIENI PRESENTE CHE 
DLVI ARRIVARE SULLA PISTA A V 
ELOCITA* INFERIORE A 250 K 

M/H.": : 

4oU B$ = "PREMI *ENTER* M :: PRINT 

4y0 CALL KEY (3,K,S) : : IP KOÌJ O 
R S* 0 THEN 4yo 
bUO CALL CLEAR 

blu PRINT "NON PUOI FARE CAMBIAM 
ENTI DIROTTA l)I PIU* Di lo GRADÌ 
ADOGN1 INTERVALLO DI 10 SEC.": 


b* 0 PRINT "POTRAI V ED LUE LE 1STR 
UZIONI PRECEDENTI SULLO SCHERMO 
E IMPOSTARE 1 NUOVI COMANDI O 
GN1 10 SECONDI.": : 
b30 PRINT "LO SPACE SHUTTLE APPA 
RE SUL-LO SCHERMO a CIRCA Ih KM 
DALLA PISTA; LA VELOCITA* E' DIb 
00 KM/H ,L'ALTEZZA DI 2000 METRI 

ii . 

• t 

b**0 PRINT "HAI ANCORA 1 bOO LITRI 

di carburante e la rotta e' 

1 d0 GRADI." 

bSO PRINT "LA POTENZA MOTORI E'R 
EGO LAI'AA 1 E GLI ALETTONI SONO 1 

n posizione -1 (-V+3)*” :: PR1 

NT :: PRINT b$ 

sou CALL KEY ( 3 , K, S) : : IF K<>13 O 
R S=0 THEN boO 

b7o D=ls :: V=b00 :: H=2o00 :: R 
=lb0 :: A=-1 


bòO RANDOM1ZE 

5‘JO Y- 1 1 +1NT (RND* 1 1 ; 

bOO RANDOMIZE :: KK=INT(RND* t) 

610 IF KK= 0 THEN o20 ELSE IF KK = 

1 THEN b30 

b*0 X= 2+ INT ( 2* RND ) : : GOTO o40 
030 X s 2S+INT(2*KND) 
b40 G=1 : : F*1bOO 


bbO GOSUb 14 40 

660 FS = "0d0o 1CJE7Fuò0b 1C" 

6/0 CaLL ChARlIJ0,F$) 

boO CALL HCHAR(Y,X, 1 30,1 ) 

b^0 B$ = "PREMI *ENTER*" :: PRINT 


b$; 

7o0 

R S 

71 u 
) 

7*0 
730 
74u 
7 bu 
7b0 
770 
7d0 
A 

/yu 

eoo 


CALL KEY ( 3 , K, S ) : : IF KOlJ O 
‘U THEN /00 

CALL CLEAR :: CALL SCREEN(11 

PRINT " SITUAZIONE" 

PRINT 

PRINT "DISTANZA:";D;"KM" 
PRINT "VELOCITA*"; V;"KM/H" 
PRINT "ALTEZZA:";H;"MT" 

PRINT "ROTTA:";K;» GRADI" 
PRINT "POSIZIONE ALETTONI:"; 

PRINT "GAS ";G 
PRINT "CARbURANTE:";F 


b! 0 PRINT 
U20 PRINT 
b30 T = k 

b40 PRINT "NUOVA ROTTA:"; 

bbU ACCEPT bLEP VALIDaTE(DIGIT): 

R 

bbO IF R> = 350 OR R< = 10 THEN boO 

o/O IF AbS(T-R) > 1 0 THEN bbO 
boO PRINT U 

0^0 PRINT "NUOVA POSIZIONE ALETT 

OhIV l-J/J):"; 

yOU ACCEPT DEEP VaLìDATEvNUMERIC 
) : A : : IF A<-J Ul< A>3 THEN ò'J U 
yiO PRINT "NUOVA POSIZIONE MANET 
TA GAS7(0/1u) :" ; 

y*U ACCEPT bEEP VALÌDATE(DIGIT): 

G :: IF G<0 OR G>10 THEN ylO 

y30 H = Ht-A* (V/3) 

y4U F=F-bO-G*10 

ybU V = V- 50+G*2b- I 0*A 

9bO S=(V/Jb00)*lu 

y70 X=X+S*COS(P1/2-R/S7.32) 

ybU Y=YtS*SIN(P1/2-K/5V.32) 

yyo Dy=(AtìS (X-1b) ) ~2+^ABS (Y-1 1) ) 

"2 

1 000 D=SyR(ABS(DO) ) 

1010 IF H< = 2b AND D<=1 AND V< = 2b 
O THEN 1130 

10*0 IF 11 NT ( RND * 4 ) -♦- bO/H ) > = 5 AND 
D>* THEN i330 

IOjO IF H<0 AND V>250 THEN 1330 

1040 IF F< = 0 THEN 1200 

lObO IF lis b AND D> 1 THEN 13 j0 

lUbO IF V<*bO aND D>1 THEN 1270 

1070 IF V>1200 TH^N V=12u0 

1 ObO GuSUb 1440 

loyo C ALL HCliAK ( Y , X , I 30 ) 

1100 PRINT B$; 

IMO CALL KEY ( 3 , K , S ) : : IF K<>13 

OR S=0 THEN MIO 

1120 GOTO 710 

1 130 CALL CLEAR 

1140 REM ATTERRAGGIO RIUSCITO 

11bO REM 

11bO CALL CLEàR 

1170 DISPLAY AT(10,b):"ATTEREAGG 
IO PERFETTO" 

lldO DISPLAY AT(12,1):"COMPLiMEN 

Ti III" : : GOSUb JbO 

l1yo GuTO 1jyo 

1200 CALL CLEAR 

12 10 UEi-i FINE CARBURANTE 

1220 REM 

1*30 CALL CLEAR 

1240 DISPLAY ATll0,b):"L© SPACE 
SHUTTLE E'PREC IPITATO" 

1 2 bO DISPLAY AT(14,l):”IL CARBUR 
ANTE E* FINITO" 

1*60 GOTO 13^0 
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1270 CALL CLEAR 
l^oU REM STALLO 
12*0 REM 

ÌJUU DISPLAY AT(I0,b J :"LO SPACE 
SHUTTLE E*PRECIPITATO" 
lolO DISPLAY AT(14,1 ) : M E 1 ANDATO 
IN STALLO PER SCARSA VELOCITA'" 

ÌJ2U GOTO libo 
1JJU CALL CLLAK 
1 J 4 0 REM OSTACOLO 
IjbO CALL CLEAR 

1 JoO DISPLAY AT ( 1 U , b ) .5 "LO SPACL 
SHUTTLE E'PRECIPITATO" 

1J7U DISPLAY AT(I4,1):"SI E' SPK 
ACELLATO CONTRO UN OSTACOLO" 

1 JoO REM 

1 j9u INPUT "PREMI ENTER":A$ 

I4UU CALL C LEAR 

I 41U INPUT "VUOI RIPROVARE? S/N 


I4z0 1F A$="N" THEN lblO 
ì 4 oO 1F a$="S" THEN b70 
1440 CALL CLEAR :: CALL SCRELN{0 
) 

14bu DISPLAY AT(22, b) : "JiO" :: D 
ISPLaY AT(22,14)0" :: DISPLAY 
AT(22,22):"S0" 

1400 DISPLAY AT(17,1) :"3U0" :: D 
ISPLAY AT(17,27):"0U" 

1 470 DISPLAY AT (1 1 ». 1 ) : "270" :: D 
ISPLAY AT(11,14):"+" :: DISPLAY 
AT(11,27):"90" 

1400 DISPLAY AT(0,1) :"240" :: DI 
SPLAY AT(0,20) : " 1 20" 

1 4 bU DISPLAY AT(1,o):"210" :: DI 
SPLAY AT(1,13)IbO" :: DISPLAY 
AT(I,21):"1bO" 

IbOO RETURN 
l_»10 END 


_ 

—Home Secretary 


Con l'acquisto di questo numero di Paperso/t i 
avete fatto uno dei vostri più grossi colpi da j 
novantonoviam: con questo listato In Basic 1 
avrete a disposizione una eccezionale rubrica 
telefonica, la possibilità di calcolare durata e 
costo delle voste telefonate ed (Udite-Udite!) 
la possibilità di far comporre il numero da chia¬ 
mare per telefono dal vostro TI-99! E senza bi¬ 
sogno di modem telefonici o simili: dovete tut¬ 
tavia disporre di una apparecchio telefonico ti¬ 
po “touch-tone", che emette un particolare 
suono alla pressione dei tasti del combinatore. 
Tutto ciò perché il programma si basa sul me¬ 
todo degli accordi bitonali, ovvero: ogni cifra 
composta sul disco o sulla tastiera telefonica, 
viene codificato sotto forma di impulso sonoro 


100 REM ******************* 
Ilo REM * HOME SECRETARY * 
120 REM ******************* 
1J0 REM TI-^9/40 BASIC 


che puu ,-‘tr.ir identificato come accordo di 
due frequenza tra i 697 Hz e i 1477 Hz; il vo¬ 
stro TI comporrà il numero, quindi, semplice- 
mente “suonando", e voi non dovrete far al¬ 
tro che porre il ricevitore telefonico davanti al¬ 
l'altoparlante del vostro televisiore. 

N. 8. Se qualcosa dovesse andare storto, por- 
vate a regolare diversamente il volume dell'al¬ 
toparlante finché tutto sarà O.K. Se neppure 
con questo mezzo doverste riuscire (ma è un 
caso molto raro che succede a seconda della 
combinazione tra tipo di altoparlante e tipo di 
telefono) allora, dovreste inserire tra l'uscita au¬ 
dio del Ti (Pm #5 dello spinotto del modula¬ 
tore) e l'entrato audio del televisore un filtro- 
passa basso da 1,5 Khz. 


l4 o REM 

170 DIM Al $( 00 ), A2$( 00 ) ,AJ$ (60), 
A4$ (00) ,Ab$(oO) 

IbO DIM C AT$(0) 


IO 

















1 90 DIM Pi (J) ,P*. (3) 

200 DATA 097,770, «92,1210,1.140,1 
4 b 1 

2lo REaD Pl(l),P1(2),P1i3),P2(1 ) 

,P^U),P*U) 

2zV DATA NOME:, TEL.:, VIA:/CITTA' 
&CAP.:,NOTE : 

230 DATA "VOCE: ".COSTO:,NEG 

OZIO:,wUANDO:,NOTE: 

240 CALL CLEAR 
2bO LSIZE = U 
2o0 OPT=1 

270 READ CAT$( 1 ) ,CAT$( 2 ) ,CAT$l3) 
#CAT$(4),CAT$(b) 

2o0 PRINT "DATI DA CARICARE? (S 
/N)" 

290 GOSUB 3120 

300 IF KEYO b 3 THEN 330 

310 GOSUB 1900 

320 GOTO 410 

330 REM 

j40 PRINT "RUBRICA TELEFONICA? ( 
S/N) " 

3b0 GOSUB 3120 

3bU IF KEY = b 3 THEN 39U 

370 OPT-4 

3b0 READ CAT$ (1 ) ,CAT$ (2) ,CÀT$ i3) 
f CAT$(4 ),CaT$( b) 

390 N = 0 
400 GOSUB 430 
410 GOSUB bbO 
420 GOTO 410 
4 3u REM 

44 0 PRINT :" PREMI":" E P 

EH USCIRE":" R PER REINSER 

IRE" 

4bU FLAG1 = 1 
4oO FLAG2»1 
470 I=N+1 

4dU IF 1< = 60 THEN bZ U 

490 PRINT : :"** VETTORE COMPLET 

O (N = o0/* * " : : 

bOO GOSUB 3100 

b10 RETURN 

b20 PRINT 

b 30 INPUT CAT$ll ) :Al$ U) 
b*U IF A 1 $(I)-"E" THEN 750 
bbO IF Al $(I)«"END" THEN 7b0 
bbO IF Al$U)="" THEN b30 
570 IF A1 $ 11)<>"R" THEN Ó20 
bbo i=i-i 
590 N= I - 1 

bOO PRINT :"** REINSER1KE ULTIMA 
SERI E* *" 

610 GOTO bzO 

b20 IF OPTOl THEN bbO 

o30 INPUT CAT$(2) :A2$11 ) 

b40 GOTO b/0 

b50 INPUT CAT2? 12) :T 

bbO A2$li)*STR$(T) 

670 INPUT CAT$ l3) :Aj$ U) 
bbO INPUT CAT$(4):A4$li) 


090 INPUT CAT$lb):Ab$il) 

700 GOSUB 770 

710 IF T>19u THEN bOO 

720 GOSUB 600 

730 N=1 

/4U GOTO 4/0 

7bu GOSUB 2410 

760 RETURN 

7 7 0 REM 

7bO T = LEN lA1 $ li) &A2$ (I) *,A3$ ( I ) i*A 
4* U)fcAb$ (I) ) 

790 RETURN 

UGO LSIZE = LSIZE+T 

blO IF LSI Zi^< j 30U THEN b40 

b20 CALL SOUND 1200,600,4) 

630 PRINT :"** ATTENTO **":"*LA 

MEMORIA E'UUASI PIENA*":" ILSIZE 

*" ; STKS ILSIZE)*-"/ JòOO) " : 

b40 RETURN 

bbo SC=4 

bbU GOSUB jO60 

670 PRINT "PREMI": : :"1 - PER A 

GG1UNGERE DATI": :"2 - PER VARIA 
RE i DATI" 

òbU PRINT :"3 - PER VEDERE L'ELE 
NCO": :"4 - PER VEDERE UNA VOCE" 

• 

690 PRINT :"b - PER UTILIZZARE 1 
DATI": :"b - PER MEMORIZZARE DA 
TAFILE": :"7 - PER STAMPARE L'EL 

ENCO" : : 

900 PRINT "8 - PER FINIRE" 

910 IF FLaG 1= 0 THEN 93u 

920 PRINT "*** AGGIORNAMENTO ELE 

NCO ***" 

9ju GOSUB 3120 
940 iF KEY<.4 9 THEN òbo 
9bU IF KEY> bo THEN 6b0 
960 GOSUb 30ou 

970 UN lKEY-4b)GOSUb 990,1010,14 
30, lbbU, j 1bO , 2I40,42bO,44bO 
960 RETURN 
990 GuoUB 430 
IO00 RETURN 

1010 REM VARIAZIONE DATI 
10^0 INPUT "OUALE V " :lì$ 

1030 IF THEN 1410 

1040 PRINT : :" INSERIRE": :" 

IL NUOVO DATO A-CUkSORE": :" 

* D' PER CANCELLARE LA VOCE": :" 
1 ENTER' PER NON VARIARE": 
lObU GOSUB 1600 
lObO PRINT : : 

1070 FLAGÌZI 
1OòO Tl$="? " 

1090 I=M 

1100 GOSUB 770 

1110 T*-T 

1 120 GOSUB oO0 

1130 INPUT Al$IM)fcTl$:TMP$ 

1140 IF TMP$«"" THEN 1220 
llbO iF TMP$<>"D" THEN 1200 



1 1 t>0 Al $ (M) ="_" 

1 1 70 GOSUB 2410 
libo N=N-1 
1190 RETURN 
1200 Al S (M) =TMPS 
1210 FLAG2=1 

1**0 INPUT A2S (M) <»T1$ : TMP$ 

1230 IF TMP$ = "" THEN 1230 
1 240 A2$(M)=TMP$ 

1290 INPUT A3$ (M) 6TIS:TMPS 
1260 IF TMP$ = "" THEN 12b0 
1270 A3S(M)=TMP$ 

1 2o0 INPUT A4$ (M) i.Tl$:TMP$ 

1290 1F TMPS = "" THEN 1310 

13o0 a4SIM)=TMPS 

13l0 INPUT A3$(M)&T1$:TMP5 

1 320 1F TMP$ = " " THKN 1340 

1330 A5$(M)=TMPS 

1340 GOSUB 770 

1330 IF T<192 THKN 1360 

1 3b0 PK1NT ;"** REINSERIKE ULTIM 

A "uCK **" 

1 370 GOSUB 1 1 30 
1 360 GOSUB 600 
1390 GOSUB 1 b30 
1 400 ON T GOTO 113o, 1 020,1 41 0 
1410 RETURN 

1420 REM VEDERE ELENCO INTERO 
1430 IF FLAG2=0 THKN 1430 
1440 GOSUB 2410 
1430 FOR 1=1 TO N 
1460 M=29-LEN(A2$(1)1 
1470 T$=STR$lI)&"•" 

14bO PRINT TAB(4-LEN(T$)) ;T$;Al$ 
(1) ;TAB IH) ; A2S (I) 

1490 IF 1=20 THKN 1520 
l30u IF 1=40 THKN 13i0 
1510 GOTO 1330 
1320 GOSUB 3100 
13 j0 NKXT 1 
1340 GOSUB 3100 
1350 RETURN 

13bu rem listino singole voci 

1570 INPUT "UUALE ? ":M$ 

1560 IF MS = "" THEN 1b40 
1390 GOSUB lbOO 
1600 GOSUB 30b0 

1b10 PRINT Al S(M): :A2S(M): :A3$ 
CM) : : A4? (M) : ; A3S (M) : : 

1620 GOSUB 1630 

1630 ON T GOTO 1600,1570,1640 

1b4U RETURN 

1630 PRINT -."PREMI":" E PER UN 
LIST UP":" X PER UN LIST DOWN": 
" S PER CERCARE ALTRO" 

1660 GOSUB 3100 
1b70 T-3 

1660 IF KEYOb9 THEN 172o 
1690 T«1 

1700 IF M=I THEN 1760 
1710 M=M-1 

1 720 iF KEYOob THKN 1760 


1730 T=1 

1/40 1F M=N THEN 1760 
1730 M=M+1 

17bO IF KEYOo3 THEN 1760 
1770 T=2 
17 bO RETURN 

1790 REM RICERCA ROUTINE PER LIS 
TING SINGOLE VOCI 

1600 IF ABS(ASC(MS)-53)>4 THEN 1 
bsO 

1610 M=VAL(M$) 

1620 IF M<=N THEN 1640 

1630 M=N 

1640 RETURN 

1650 FOR 1=1 TO N 

1bbO M=1 

1b7U IF MS<“AlS(I)THKN 1690 
1 6 6 0 NKXT I 
1690 RETURN 

1900 REM CARICAMENTO DATI 

1910 PRINT "PREMI": :"1. CSI": : 

"2. Disisi " : : " 3. ALTRO" 

1920 INPUT DEV 

1930 IF DEVOÌ THEN i960 

1940 DEVS="CSl" 

1930 GOTO 2010 
1 9b0 iF UEV<>2 THEN 2000 
1970 INPUT "NOME FILE? ":FILS 
I960 DEVS="DSKl."&FIL$ 

1990 GOTO 2010 

2000 INPUT "NOME DISPOSITIVO?:": 
DEV$ 

2010 OPEN # 2 :DEVS,INTERNAL,INPUT 
,FIXED 192 

*020 INPUT **:OPT,N,FILS,DATES,L 
SIZE 

203U IF OPT=1 THEN 2050 

*040 READ CATSli),CATS(2j,CAT$(3 

),CATS(4),CATS(3) 

2050 PRINT : :FIL$: :"LSIZE(3600 

)=";LSIZE: :"ULTIMO AGGIORNAMENT 

O: ";DATES: : 

2060 FOR 1 = 1 TO N 

2070 INPUT »2:AlS(I),A2S(I),A3S( 

I) ,A4$ U) ,A3$ (I) 

2080 NEXT I 

2090 IF DEV=1 THKN 2120 
2100 FOR TD=1 TO 1000 
2110 NEXT TU 
2120 CLOSE *2 
2130 RETURN 

-il 40 REM MEMORIZZAZIONE ELENCO 

2150 IF FLAGz-0 THEN 2170 

2160 GOSUB 2410 

*170 PRINT "PREMI 1. CSI" 

2160 PRINT " 2. DSKl" 

2190 PRINT " 3. ALTRO": : : 

2*00 INPUT "LA TUA SCELTA?":ANS 

2210 IF (ANS<1)+(ANS>3)THEN 2170 
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2220 UN ANS GOTO 2230,2260,23ìU 

2230 DUV$» N CSr a 
2240 GOTO 2320 

2230 INPUT "NOME FILE ?":NAM$ 
2200 iF LEN(NAM$)<1I THEN 2290 
2270 PR1NT "NON PIU'DI 10 LETTER 
E,GRA21E" 

22bU GOTO 2170 

2*90 DEV$="USKl . "<*NAM$ 

2300 GOTO 2320 

2310 INPUT "NOME DISPOSITIVO?":U 
EV6 

2320 INPUT "DATA? ":DaTE$ 

2330 OPEN # 3 : DEV$,INTERNAL«OUTPU 
T,FIXED 192 

2340 PR1NT |3:OPT,N,FIL$,DATE$,L 
Si Ze 

2330 FOR 1*1 TO N 
23b0 PKINT #3:Al$U) ,A2$(1),AJ$( 
I) ,A4$ U) ,AS$ (I) 

23/0 NEXT 1 
2360 CLOSE #3 
2j 90 FLAGl=0 
2400 RETURN 

2410 REM ROUTINE USCITA 
2420 FLAG2=0 

2 4 3 U CALE SOUND (100,b00,b) 

-440 PKINT : : :" ***** USCITA 

DATI *****": : 2 

2460 IF (N-l)THEN 2470 

24b0 RETURN 

2470 FOR 1*1 TO N 

24Ò0 NEXT 1 

2490 N2*INT(N/2) 

2600 N 21= N 2 + 2 

2ol O ICT=1 

2320 1=2 

2330 Nl=N2l-i 

2340 NN=N 

2 36U IK = N1 

23b0 GOSUtì 2bb0 

2670 JK = 2 * i K 

23b0 IF JK>NN THEN 2bb0 

2690 IF JK = NN THEN 2620 

2bOO IF Al $( JK + l)<=Al$ ( JK)THEN 2 

620 

2b 1 0 JK=JK +1 

2b20 IF A1 $ ^ J K)< =C$ THEN 2bb0 

2b30 GOSUB 2940 

2040 1K=JK 

2b60 GOTO 2670 

2bfa0 GoSUB 3000 

2670 ON iCT GO'iO 2bdO,27bO 

2bbO IF I> = N2 THEN 2710 

2690 1 =*I -t-1 

2700 GO'IO 2330 

2710 iCT*2 

2720 NP 2 = N + 2 

2730 1=2 

2740 NI= NP2-I 

2760 NN«N1 

2760 1K=1 


2/70 GuTO 2660 

2 7 u 0 IK= 1 

2790 GOSUB 2dd0 

2 ttO0 J K = N1 

2o10 GOSUB 2940 

2b 20 1K = Nl 

2b 3u GOSUB 3O0o 

2b40 IF I> = N THEN 2b70 

2 b 60 1*14-1 

2bb0 GOTO 2740 

2b70 RETURN 

2bò0 CS“Al$(1K) 

2b90 MJ=A2$(IK) 

2900 T^*Aj$(1K) 

2910 TMP$=A4$(IK) 

2920 TI$=A6$(1K) 

2930 RETURN 

2940 Al$(IK)=A1S(JK) 

2960 A2$(IK)=A-S(JK) 

29b0 A3$(IK)=A3$(JK) 

29/0 A4$(IK)=A4$(JK) 

29b0 A6$(IK)=A6$(JK) 

2990 RETURN 
3U00 Al$(IK)=C$ 

3010 A2$(1K)=M$ 

3020 A3$(IK)=T$ 

3030 A4$(1K)=TMP$ 

3040 A6$(IK)=TI$ 

3060 RETURN 

30b0 REM GESTIONE SCHERMO 
3070 CALL CLeAR 
30bO CALL SCREEN(SC) 

309o RETURN 

3100 REM GESTIONE TASTI 

3110 PRINT : 2"PREMI UN TASTO PE 

K":" CONTINUARE" 

3120 CALL Ke¥(O,KEY,STATUS) 

3130 IF STATUS = 0 THeN 3120 
3140 RETURN 

3160 REM UTILITIES VARIE 

slbU IF OPT=1 THEN 3290 

3170 SUM= 0 

31bO FOR 1=1 TO N 

3190 SUM=SUM+VaL(A2$(I)) 

3*0U NEXT I 

3210 PRINT "COSTO TOTALE DELLE V 
OC I": : : 

3220 PRINT : : : :TAB(10);SUM: : 


3230 CALL HCHaR 11 1 , / ,3b,1d) 

32 4 0 CALL HCHAR(19,7,io, 1 d) 

3260 CALL VCHAR(12,7,3b,7 ) 

32b0 CALL VCHAK(12,24,30,7) 

3^70 GOSUB 3100 
32ÒO RETURN 

3290 REM GESTIONE TELEFONO 
3300 REM 

3310 RESTORE 3320 
3320 DATA 2,67,66,63,3l 
3330 READ 01,0^,03,04,06 
3340 PRINT : :"VUOI CHE COMPONGA 

IL NUMERO": : 
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3j5u GOSUb 1570 

33bu IF MS = "" THEN 3blU 

3570 CALL CLEAR 

J3Ò0 H = 4j 

3 390 V = d 

3400 TS=A2$(M) 

34 10 L=LEN(T$) 

3420 Pili NT Aì§ (M) :A2$ (M) :AJ$ (M) : 
A4$ (H) : A5$ iM) : : : : 

J4J0 IF L<1u THEN 34b0 
3 4 4 U L C L+1 
3450 Tfr« M 1 M fcY$ 

34 bU PUH J®1 TO L 
3470 TMP5“SEGS iTS,J, I ) 

■3460 C ALL HCHAKUi,V,ASC(TMP$) ,1 ) 

3490 V=Vfl 

3500 IP ASC(TMP$j<4b THEN 3bu0 
3510 iF ASC(TMP$)>57 THEN 3600 
352u T*VAL(TMP$) 

3530 IF TOU THEN 3560 
3540 CaLL SOUND(3uU,94l,0,133o,2 
) 

355u GOTO 3590 

3560 I=INT(i T- 1 ) / 3 ) + 1 

3570 IJ = Y-3* (1-1) 

3DÒ0 CALL SOUNiM300,Pl (1 ) ,0,P2(I 

J) ,2) 

359u CALL SOUND(250,44000,29) 
3b00 NEXT J 

3o10 PkINT : PREMI R PER 

RICOMPORRE"S PER AVVIARE C 
RONOMETRO"2" N PER UN NUOVO NU 
MERO" 

3b20 GOSUB 3100 
3 oju IF KEY=b2 THEN 3370 
3o40 IF KEY=7b THEN 3350 
3o5u IF KEY < > ò 3 THEN Jb90 
3obu PRINT :"TIENI PREMUTO ":"R 
PER RICOMPORRE":"ALTRI TASTI PER 
CONTINUARE": : : 

30 70 GuSUb 37Uu 
3bbo IF Y*Ò2 THEN 329u 
3o90 RETURN 

37 0 0 REM GESTIONE CRONOMETRO 

3710 h = 2 3 

3720 V=23 

3730 JS=J 

3740 b = 4 

3/So UELAY-Ul 

37b0 POR J1= 0 TO lo 

3 770 A1 * 4 tì > J1 

37b0 POR J2= 0 TO 9 

3790 A4»4o+J2 

3b0U POR J3=0 TO 5 

3tìlU A3=4b+j3 

3b20 POR J4=JS TO 9 

3U30 A4® 4 b-t-J4 

3b40 GOSUb 4020 

3650 IF STATUSOO THEN 40l0 

3bbU S®4 


3b70 DELAY=D2 
3obU NEXT J 4 
3 o 90 JS® 0 
39o0 DELAY=03 
39 10 NEXT J3 
3920 DELAY®D4 
3930 S=11 
3940 NEXT J 2 
3950 A 4 ® 4 o 
39b0 UELAY*U5 
397u S-» 1 0 
39ÒU GOSUb 4020 
3990 NEXT Jl 
4uUu GOTO 37bU 
4010 RETURN 
4020 REM 

4030 CALL HCHAR(H, V-t-2,32,1) 
4U4U CALL KEY(U,T,STATUS) 

4U50 FOR J=1 TO DELAY 
4060 IF STATUSOO THEN 40l0 
4070 NEXT J 
4UbO CALL SCREEN(S) 

4U9u CALL HCHAR|ti#V,Al,l) 

4100 CALL HCHARIH ,(V+l), A2,1) 
4110 CALL HCHAR(n,V+2,5o,l) 

4I2u CALL HCHAR(H,V + 3,A3,1) 

4130 CALL HCHARIH,V+4,A4,1) 

4140 RETURN 

4150 REM STAMPA SCHERMO 
41b0 IF RP = U THEN 4270 
4170 OPEN 4 1 :"RS232" 

41bU FOR IJ = 1 TO 20 
4190 PRINT ft 1 :T$ 

4200 T$ = "" 

4210 FOR J=1 TO 3^ 

4^20 CALL GCHAKUJ , J,Ch) 

4230 T$*TS6CI1KS (CH) 

4240 NEXT J 
4450 NEXT 1J 


Guida per l’input dei 
programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise "andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate _A_ dovrete battere 
CONTROL + A: se trovate —. dovrete battere 
CONTROL + SPAZIO, e cosi via. 
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4zoU CLOSE #1 
4270 RETURN 

42ttU REM STAMPA LISTATI 

4<:90 INPUT "NOME DISPOSITIVO ?" : 

DEV$ 

4j00 PR1NT DEV$;" E'PRONTO (S/N) 

ii 

4Jlu GOSUb J I 20 

IF KEYObJ THEN 44*0 
4J^U OPEN # J : UEVS #OUTPUT 
4 j4u T* INT (N/ì*) 

4JSU t’OK J * u TU T 
4jb0 FOU M- 1 TO 9 
4 j7u I=^*J*M 

4jbU PR1NT fJsTAb(D) ;!;")";Tab(l 
U ) ; A 1 S ( I ) : Taii ( 1 0 ) ; A2$ ( I ) : YAb ( 1 u ) 


;nó$ li):TAb(lo); a4s(I):TA b(lU);A 
( I ) : : 

4J9U IF i=N ThEN 4 4JU 
4 4 U U N EX T M 
4 41U GOSUb JlUO 
4 4 2U NEXT J 
4 4 3u CLOSE MS 
4 4 4 0 RETURN 

44bU PRiNT "VUOI DAVVERO BLOCCAR 

E il programma e perdere tutt 

I I DATI IN MEMORIA? (S/N) M 
4 4 bU CALL KEY(U,K,S) 

44/0 IF S = 0 THEN 44b0 
44òO IF K=ASCl"N")THEN òbU 
449U IF K<>ASC("S")THEN 4440 
4 SUO END 


L’oro degli gnomi 




sincri 

laii 


speccrum 



Chi ha paura del folletto verde? Probabilmen 
te nessuno, ed a ragione visto che questo spi¬ 
ritello dispettoso può soltanto rimandarvi nella 
stanza di partenza del labirinto tridimensionale 
che qui vi proponiamo. Inoltre la possibilità di 
imbattervi in lui è tutta nelle vostre mani: è in¬ 
fatti noto a tutti che il folletto di cui qui trat¬ 
tiamo si sposta malvolentieri dalla stanza ove 
egli custodisce il favoloso tesoro degli gnomi e 
dove, di conseguenza, trascorre la maggior par¬ 
te della sua eterna esistenza; nonostante ciò 
ve lo troverete davanti ogni qualvolta tardere 
te a decidervi sulla direzione da percorrere per 
trovare l'oro, vera meta del gioco. 
Accantonando queste amenità, passiamo ad 
esaminare la procedura da seguire per salva¬ 
re questo programma. Esso è stato diviso in 

Listato I 

190 LET y$ = " 

n 

200 FOR i=s TO y: GO SUB VAL x$ 

(i)*VAL "100"+VAL "1000": 

IF n>b*v THEN GO TO VAL " 
200 " 


due listati per permetterne l'utilizzo anche ai 
possessori di Spectrum I6K; chi possiede la ver¬ 
sione maggiore può giuntare i due listati, eli¬ 
minando la linea 9000 e aggiungendo la linea: 
30 GO TO 6000. Chi invece non ha questa pos¬ 
sibilità operi come segue: 

1) Salvate il listato I con SAVE "3D LAB" 
LINE 9000: quindi date NEW 

2) Battete ora il listato 2: quindi date RUN 

3) Salvate gli UDG che avete cosi caricato con 
SAVE "setgrafico" CODE USR "a", 168 sul na¬ 
stro immediatamente dopo il listato I 

4) Cancellate con NEW il listato 2. che non 
vi servirà più. Per caricare e giocare sarà cosi 
sufficiente battere LOAD il programma 
principale caricherà a sua volta il set grafico. 


205 LET i=i+s: GO SUB VAL x$(i) 
*VAL "100"+ VAL "1000": IF x 
$(i)="7" OR n>b*v THEN 
GO TO VAL "200" 

210 IF y$(i)=" " AND x$(i+b)="7 
" THEN LET y$(i)=b$: LET r 


IS 



















=RND: LET x$(i+b)=("8" 

AND t<VAL ".3")+("7" AND r 
>=VAL ".3"): GO TO VAL "280 

II 

220 IF y$(i)=" " AND x$(i+b) 

<>”7" THEN LET y$(i)=b$: 

GO TO VAL "280" 

230 IF y$(i)<>" " AND x$(i+b) 

="8" AND y$(i)=b$ THEN 
LET i=i+b: GO TO VAL "280" 

260 IF y$(i)<>" " AND x$(i+b) 

<>"7" AND y$(i)<>b$ 

THEN GO SUtì INT (RND* 

INT PI)*VAL "100"+VAL "100 
0": GO SUB VAL "1700": 

GO TO VAL "200" 

270 IF yS(i)<>" " AND x$(i+b) 

= "7" AND y$(i)<>b$ THEN 
LET y$(i)=b$: LET i=i+b: 
LET x$(i)="8" 

280 NEXT i: GO TO 7000 
1001 CLS : PLOT VAL "47",m+m: 
DRAW VAL "128",a: PLOT 
VAL "47",VAL "103": DRAW 
VAL "128",a: PLOT x,a: 

DRAW m+m,m: DRAW a,VAL "11 
9": DRAW -u,u: PLOT VAL "24 
0",a: DRAW -o,m+m: DRAW a, 
VAL "71": DRAW q,q 
1010 IjET p=w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 
RETURN 

1015 IF b$<>"7” THEN LET p=w: 

GO SUB d: GO TO VAL "1000" 

1020 LET c=s: LET p=m+b: 

GO SUB h 

1051 CLS : PLOT m,m+m: DRAW 

VAL "159",a: PLOT m,VAL "10 
3": DRAW VAL "159",a: 

PLOT x,a: DRAW a,VAL "167" 
: DRAW -1,1: PLOT VAL "240" 
,a: DRAW -o,m+m: DRAW a, 

VAL "71": DRAW q,q 
1 060 LET p=m+b: GO SUB l': 

GO SUB e: IF n>b*v THEN 
RETURN 

1065 IF b$<>"5” THEN LET p=w- 

s: GO SUB d: GO TO VAL "105 
0" 

1070 GO SUB g: PAUSE j: RETURN 
1101 CLS : PLOT v-s,m+m: DRAW 

VAL "128",a: PLOT v-s,VAL " 
103": DRAW VAL "128",a: 

PLOT x,a: DRAW o,m+m: 

DRAW a,q-s: DRAW -q,q: 

PLOT VAL "2 40" ,a: DRAW - 
VAL "32",m: DRAW a,VAL "119 
": DRAW u,u 

1110 LET p=w-s: GO SUB £: 

GO SUB e: IF n>b*v THEN 
RETURN 


1115 IF b$<>"7" THEN LET p=w: 

GO SUB d: GO TO 1100 

1120 LET c=s: LET p«m+b: 

GO SUB h 

1151 CLS : PLOT v,m+m: DRAW 

VAL "159",a: PLOT v,VAL "10 
3": DRAW VAL "159",a: 

PLOT x,a: DRAW o,VAL "32": 

DRAW a,q-s: DRAW -q,q: 

PLOT VAL "240",a: DRAW a, 
VAL "167": DRAW 1,1 

1160 GO SUB f: GO SUB e: IF n>b* 
v THEN RETURN 

1165 IF b$<>"8" THEN LET p=w- 

s: GO SUB d: GO TO VAL "115 
0" 

1170 GO SUB g: PAUSE j: CLS : 

RETURN 

1201 CLS : PLOT 15,0: DRAW 64,32 
: FOR n=2 TO 8 STEP 2: 

PLOT 2 *n+80,n+32: NEXT n: 

PLOT 239,0: DRAW -64,32: 

FOR n*2 TO 8 STEP 2: 

PLOT -2*n+l75,n+32: NEXT n 
: PLOT 8,175: DRAW 72,-72: 

FOR n=4 TO 16 STEP 4: 

PLOT 80+n,103-n: NEXT n: 

PLOT 248,175: DRAW -72,-72 
: FOR n=4 TO 16 STEP 4: 

PLOT 175-n,103-n: NEXT n 

1205 PRINT AT 1+k,1+k ; "CONTINUA" 
;AT x-s, 1+k;" DRITTO" 

1210 LET p=w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 

RETURN 

1215 IF b$<>"7" THEN GO SUB d 
: GO TO VAL "1201" 

1230 LET p=m+b: LET c=a: 

GO SUB h: RETURN 

1301 CLS : PLOT 240,0: DRAW -32, 

16: DRAW 0,119: DRAW 40,40: 

PLOT 207,32: DRAW -32,0: 

DRAW 0,71 : DRAW 32,0: 

PLOT 175,32: DRAW -16,8: 

FOR n=2 TO 8 STEP 2: 

PLOT -2*n+l59,n+39: NEXT n 
: PLOT 175,103: DRAW -16,-1 
6: FOR n=4 TO 16 STEP 4: 

PLOT 159-n,87-n: NEXT n: 

IF x$(i)="6" THEN GO TO 1 
402 

1310 PLOT 15,0: DRAW 80,40: 

FOR n=2 TO 8 STEP 2: 

PLOT 2*n+96,n+40: NEXT n: 

PLOT 8,175: DRAW 88,-88: 

FOR n=4 TO 16 STEP 4: 

PLOT n+96,87-n: NEXT n 

1320 LET p=w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 

RETURN 
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1 325 IF b$<>"7" THEN LET p = w: 

GO SUB d: GO TO VAL "1 300" 

1330 LET c«s: LET p=m+b: 

GO SUB h 

1350 CLS : PLOT 240,0: DRAW 0,16 
7: DRAW 8,8: PLOT 239,32: 
DRAW -64,0: DRAW 0,71 : 

DRAW 64,0: PLOT 175,32: 
DRAW -16,8: FOR n=2 TO 6 
STEP 2: PLOT -2 *n+159,n+4 0 
: NEXT n: PLOT 175,103: 

DRAW -16,-16: FOR n=4 TO 1 
6 STEP 4: PLOT 159-n,87-n: 
NEXT n: IF x$(i)="6" 

THEN GO TO 1451 

1360 PLOT 15,0: DRAW 80,40: 

FOR n=2 TO 8 STEP 2: 

PLOT 2*n+96,n + 4 0 : NEXT n: 
PLOT 8,175: DRAW 88,-88: 
FOR ri= 4 TO 16 STEP 4: 

PLOT 96+n,87-n: NEXT n: 

IF x$(i)="6" THEN GO TO 1 
451 


1 370 

LET p=w-b: 
GO SUB e: 
RETURN 

GO SUB £ : 

IF n>b*v THEN 

1 372 

IF b$<>"8" 
THEN GO 
VAL "1350" 

AND b$<>"7" 

SUB d: GO TO 

1 375 

IF b$<>"7" 
: PAUSE j 

THEN GO SUB g 
• 

1 378 

IF b$<>"8" 
s: LET c=a 

THEN LET p«m+ 
: GO SUB h 

1 380 

RETURN 


1 401 

CLS 


1 402 

PLOT 15,0: 

DRAW 32,16: 


DRAW 0,119: DRAW -40,40: 
PLOT 48,32: DRAW 32,0: 

DRAW 0,71 : DRAW -32,0: 

PLOT 80,32: DRAW 16,6: 

FOR n=2 TO 8 STEP 2: 

PLOT 2*n+96,n+40: NEXT n: 
PLOT 80,103: DRAW 16,-16: 
FOR n=4 TO 16 STEP 4: 

PLOT n+96,87-n: NEXT n: 

IF x $ ( i ) = " 6 " THEN GO TO 1 
61 0 

1410 PLOT 240,0: DRAW -80,40: 

FOR n=2 TO 8 STEP 2: 

PLOT -2*n+l59,n+40: NEXT n 

: PLOT 248,175: DRAW -88,-8 
8: FOR n* 4 TO 16 STEP 4: 
PLOT 159-n,87-n: NEXT n: 
1420 LET p=w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 
RETURN 

1 425 IF b$ < > " 7 " THEN LET p=w: 

GO SUB d: GO TO VAL "1400" 


1430 LET c=s: LET p=w-b: 

GO SUB h 

1450 CLS 

1451 PLOT 15,0: DRAW 0,167: 

DRAW -8,8: PLOT 16,32: 

DRAW 64,0: DRAW 0,71: 

DRAW -64,0: PLOT 80,32: 
DRAW 16,8: FOR n=2 TO 8 
STEP 2: PLOT 2*n+96,n+40: 
NEXT n: PLOT 80,103: 

DRAW 16,-16: FOR n=4 TO 16 

STEP 4: PLOT 96+n,87-n: 
NEXT n: IF x$(i)="6" 

THEN GO TO 1660 

1460 PLOT 239,0: DRAW -80,40: 

FOR n=2 TO 8 STEP 2: 

PLOT -2 *n+l59,n + 40: NEXT n 
: PLOT 247,175: DRAW -88,-8 
8: FOR n= 4 TO 16 STEP 4: 
PLOT 159-n,87-n: NEXT n 

1470 GO SUB f: GO SUB e: IF n>b* 
v THEN RETURN 
1 472 IF b$ <>"5" AND b$<>"7" 

THEN LET p=w-s: GO SUB d: 
GO TO VAL "1450" 

1475 IF b$<>"7" THEN GO SUB g 
: PAUSE j 

1478 IF b$<>"5" THEN LET c=a: 

LET p*m+s: GO SUB h 
1480 RETURN 

1501 CLS : PLOT u+l,m+m: DRAW k* 
u,a : PLOT u+l,VAL "103": 
DRAW k*u,a: PLOT x,a: 

DRAW m+m,m: DRAW a,VAL "Il 
9”: DRAW -u,u: PLOT VAL "24 
0",a : DRAW -VAL "32",m: 

DRAW a,VAL "119": DRAW u,u 

1510 LET p-w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 
RETURN 

1515 IF b$<>"7" THEN LET p=w: 

GO SUB d: GO TO VAL "1500" 

1520 LET c=s: LET p=w-b: 

GO SUB h 

1551 CLS : PLOT ra,m+ra: DRAW 

VAL "224",a: PLOT m,VAL "13 
5": DRAW VAL "224" ,a: 

PLOT x,a : DRAW a,VAL "167" 
: DRAW -1,1: PLOT VAL "240" 
,a: DRAW a, VAL "167": 

DRAW 1,1 

1560 GO SUB f: GO SUB e: IF n>b* 
V THEN RETURN 
1565 IF b$<>"8" AND b$<>"5" 

THEN LET p*w-s: GO SUB d: 
GO TO VAL "1550" 

1570 GO SUB g: PAUSE j: RETURN 
1601 GO TO VAL "1300" 
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1610 LET p=w-s: GO SUB f: 

GO SUB e: IF n>b*v THEN 
RETURN 

1615 IF b$<>"7" THEN LET p=w: 

GO SUB d: GO TO VAL "1600" 

1620 LET c=s: LET p=w-b: 

GO SUB h 

1 650 GO TO VAL "1 350" 

1660 GO SUB f: GO SUB e: IF n>b* 
V THEN RETURN 

1 665 IF b$<>"7" AND b$<>"8" 

AND b$<>"5" THEN 
GO TO VAL "1650" 

1 670 IF b$ = " 7 " THEN LET p=m+s: 
GO SUB h: RETURN 

1680 IF b$="8" OR b$="5" THEN 
GO SUB g: PAUSE j: 

RETURN 

1701 CLS : PLOT o,w+k: DRAW 

VAL "127",a: PLOT o,VAL "11 
9": DRAW VAL "127",a: 

PLOT x,a: DRAW u+l,w+k: 
DRAW a , V + X : DRAW -VAL "48" 
,u+ls PLOT VAL "240",a: 

DRAW -VAL "48",w+k: DRAW a 
/VAL "95": DRAW u+l,u+l: 

IF i>y THEN RETURN 

1710 GO SUB f: PRINT AT l+b,l+t- 
2'; "VICOLO CIECO"; AT m-b,x-k 
?" Torni al!a";AT m+s,x-s-1 
;"PARTENZA": PAUSE b*v: 

CLS : RETURN 


2000 

IF 

b$<> "7 " 

THEN 

GO SUB 


VAL 

"5000" 



2001 

CLS 

: PLOT 

a,m+m: 

DRAW 


VAL 

"255", 

a: PLOT 

a,VAL "13 


5": 

DRAW VAL "255 

ii . 

, a • 


PRINT AT 

1+b,1+t 

-2;"QUI C* 


E' 

UN";AT 

m-k,m-b 

; "MURO" 

2005 

LET 

p=w-b: 

GO SUB 

f 


2008 IF b$ = "7" THEN GO TO VAL " 
2020 " 


2010 PRINT AT w,x-k-3 ;"VOLTATI" ; 
AT w,w-b;"INDIETRO";AT w+s, 
I+t;"Premi ";("8" AND b$="5 
")+ ("5" AND b$="8"): 

PAUSE a: IF INKEY$<>"5" 

AND b$ = "8" OR IN KEY$ <>"8 
" AND b$ = "5" THEN .CLS : 

GO TO VAL "2001" 

2015 PRINT AT w,x-k-3;" "? 

AT w,w-b;" ";AT w+s, 

1+t?" ": PAUSE b*x: 

PRINT AT w-s,m;"D";AT w,m; 
("F" AND b$«"8")+("E" AND b 
$» ir 5 H ): PAUSE b*x : CLS : 
RETURN 

2020 PRINT AT w+s,1+t;" RIPROVAI 
": PAUSE b*x: CLS : 

RETURN 


3000 PRINT AT w,b*t;"DOVE";AT w, 
w-b;"VAI?";AT w+s,b*t;"Prem 
i";AT w+s,w-b;"5,7 o 8": 

FOR n = s TO b*v: IF INKEY$ 
<>"" THEN GO TO VAL "305 
0" 

3 010 NEXT n 

3020 PRINT AT x,I + k; INK k;"o"; 

AT m,1 + k ?"O"? AT m+s , 1 + k;"B" 
: PAUSE b*x: PRINT AT k+t,x 
-k;"TROPPO TARDI";AT l+b,m- 
b+2;"il";AT x-k,l+b; INK k; 
"FOLLETTO VERDE"?AT m-k,m-t 
; INK a;" ti rimanda";AT x- 
b,1+b+l;"AL PUNTO DI";AT m 
-b,1+k;" PARTENZA ": 

PAUSE v+w: RETURN 

3050 LET b$=lNKEY$: IF b$="0" 
THEN STOP 

3055 IF b$<>"7" AND b$<>"8" 

AND b$<>"5" THEN 
GO TO 3000 

3060 PRINT AT w,l+b;" ";AT w 

,w-b;" ";AT w+s,l+b;" 

";AT w+s,w-b;" ": 

PAUSE w: RETURN 

4001 PRINT AT p,m;"o";AT p+s,m;" 
O";AT p+b,m;"B": RETURN 

4600 LET p=w-s: GO SUB VAL "5000 
": FOR n=(m AND b$="8")+(x 
AND b$="5") TO (w+1 AND b$ 
= "8")+(INT PI AND b$ = "5") 
STEP (b$="8")-(b$="5"): 
PRINT AT w-b,n;"GH";AT w-s 
,n;"LJ";AT w,n?("KL" AND b$ 
="8")+("MN" AND b$="5"): 
PAUSE 1: PRINT AT w-b,n;(" 
O" AND b$ = "8") + ("O " AND b 
$ = "5");AT w-s,n; (" D" AND b 
. $ = "8") + ("D " AND b$ = "5"); 

AT w,n?(" E" AND b$="8")+(" 
F " AND b$="5"): PAUSE t: 

NEXT n: PRINT AT w-b,n; ("G 
" AND b$*"8")+("H " AND b$= 
" 5 " ) ; AT w-s,n;(" < I" AND b$ = " 
8")+("J " AND b$="5");AT w, 
n;("K" AND b$="8")+("N " 

AND b$="5"): PAUSE 1: 

PRINT AT w-b,n;" ";AT w-s, 
n;" ";AT w,n;" ": RETURN 

4800 PRINT AT p,m;"o";AT p+s,m;" 
O";AT p+b,m;"P";AT p+INT 
PI,m;" ": PAUSE w: PRINT 
AT p-s,m;"Q";AT p,m;"R"; 

AT p+s,m;"S";AT p+b,m;" ": 
PAUSE w 

4810 IF c=s THEN LET c=a: 

RETURN 

4820 PRINT AT p-s,m;"T";AT p,m;" 
";AT p+s,m;" ": PAUSE w: 
LET c=a: RETURN 

5000 PRINT AT p,m;"D";AT p+s,m;( 
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"E" AND b$="8")+(" F" AND b$ 
="5"): PAUSE b*x : RETURN 

6000 BORDER 4: PRINT AT 1,5; 

INK 4 ;"{21SG8}";AT 2,5;" 

{SG8 ) 

{SG8)";AT 3,5 ;"{21SG8}"; 

AT 2,6; INK 0; PAPER 6;" L' 
ORO DEGLI GNOMI ";AT 5,0; 

PAPER 7 ;"Riuscirai a trova 
re la strada per il centr 
o, scovando l'ORO ?";AT 8,3 
;"Premi 5 per girare a sini 
stra";AT 9,9;"7 per andare 
avanti";AT 10,9;"8 per gira 
re a destra";AT 11,9;"(0 pe 
r FIN IRE)";AT 12,0;"Non gir 
are troppo presto, o sb 

atterai nel muroi";AT 15,0; 

FLASH 1 ;"ATTENZIONE";AT 16 
,0; FLASH 0;"I1 "; INK 4;"F 
_ .OJ-LETTO VERDE"; INK 0;" ti 
seguirà* dovunque. Non fa 
r passare troppotempo per p 
rendere una decisioneo egli 

ti rispedirà* indietro a 
Ila partenza" 

6010 LET d=VAL "2000": LET e= 

VAL "3000": LET f=d+d: 

LET g*VAL "4600": LET h* 
VAL "4800": LET j = VAL "50": 

LET a=NOT d: LET s=SGN d: 

LET b=s+s: LET k=b+b: 

LET l = k+k : LET m=l+l: 

LET o=m*k: LET q=o+l: 

LET t»k+s: LET u=t*l: 

LET v=u+u: LET w=k*t: 

LET x = t*INT PI 


Listato 1 


1 FOR i — 1 TO 19: READ p$ : 

FOR n=0 TO 7: READ a: 

POKE USR p$+n,a: NEXT n: 
NEXT i 

2 DATA "b",66,66,66,66,66,66, 
66,195 

3 DATA "c",60,90,153,153,90,6 
0,24,36 

4 DATA "d",24,24,24,24,24,24, 

24.24 

5 DATA "e", 16,16,16,16,16,16, 

16.24 

6 DATA **£",8,8,8,8,8,8,8,24 

7 DATA H g",0,3,4,4,4,4,3,0 

8 DATA "h",0,192,32,32,32,32, 
192,0 

9 DATA "i",3,5, 9,1 7,33,65,1,2 


6015 PRINT "PREMI UN TASTO PER I 
NIZIARE": PAUSE 0: CLS : 

INPUT "Livello di difficol 
ta' (1-10)";z: PRINT "ALLES 
TIMENTO": LET y=z*b+l: 

GO SUB 8000: GO TO 190 
7000 GO SUB VAL "1700": PRINT 
AT m,x; INK VAL "6";" 

{ 2SG8 } ** ; AT m+s,x-b; INK k;" 
{6SG8}";AT m+b,x-b;"{6SG8}" 
;AT w-s,m-t; INK a;"0";AT w 
,m-t;"C";AT w+s,m-t;"B"; 

AT 16,21; INK 4;"o";AT 17,2 
1 ;"0";AT 18,21 ;"B" 

7010 PRINT AT 9,14; INK 4; 

FLASH 1 ;"MALEDIZIONE!"; 

AT 11,18; INK 0; FLASH 0;" 
Hai ** ; AT 1 2 , 1 7 ; " trova to" ; 

AT 13,18;"1*"; INK 6;"ORO" 

7020 PAUSE 100: PRINT AT 1,4;"PR 
EMI 1 PER GIOCARE ANCORA": 
PAUSE 0: IF INKEY$ = " 1 '* 

THEN CLS : GO TO 6015 

7999 STOP 

8000 LET x$=" 

": FOR i=s TO y 
STEP b: LET x$(i)=STR$ 

INT (RND*INT PI): LET x$(i 
+ s) =STR$ INT (RND* k + INT 
PI): IF iCINT PI THEN 
GO TO VAL "8010" 

8005 IF x$(i-s)<>"7" AND RND< 

VAL ".4" THEN LET X$(i+s)= 

ii -j ii 

8010 NEXT i: RETURN 
9000 LOAD "setgrafico"CODE USR " 
a": CLS : GO TO 6000 


1 

0 

DATA 

« j »i 

, 

1 92 

,160, 

1 

44, 

1 

36 

, 

1 3 



2,130 

,12 

8 

,64 









1 

1 

DATA 

"k" 

, 

2,4 

,4, 

-8, 

8 

,16 

, 

16 

, 

24 

1 

2 

DATA 

•i ^ ii 

, 

64, 

32, 

r 3 2 

, 

32, 

1 

6, 

1 

6, 



16,24 












1 

3 

DATA 

"m" 

, 

2,4 

,4, 

f 4 / 

8 

,8, 

8 

,24 


1 

4 

DATA 

" n" 

, 

64, 

32, 

r 32 

, 

16, 

1 

6, 

8 

,8 



,24 












1 

5 

DATA 

H O " 

, 

1 24 

,124, 

1 

24, 

1 

24 

, 

1 2 


4,96,68,68 

16 DATA "p",68,68,68,68,1 98,0, 

0,0 

17 DATA "q",0,0,0,0,0,0,24,36 

18 DATA "r",36,24,60,60,60,24, 
36,36 

19 DATA "s", 36,36,0,0,0,0,0,0 

20 DATA "t",16,40,16,56,56,56, 
40,40 
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n arricr 



/ Seo Harners, aerei a decollo verticale passati > nell'oceano ce uno mina nucleare che, se col 


alla ribalta della cronaca con la guerra anglo- 
argentina per le Falkland, si sono rivelati un ot¬ 
timo mezzo offensivo. Il vostro compito di pi¬ 
lota in questo gioco consiste nel decollare dal¬ 
la portaerei, e distruggere un sommergibile ato¬ 
mico nemico che è in procinto di lanciare un 
missile balistico intercontinentale e distrugge¬ 
re il vostro Paese. Attenzione però: immersa 


0 POKE55,255:POKE56,47:PRINT" 
{CI.R}" :V= 53248:00=54272 :POKE53 
281,0 :POKE53280, 2 : F = 10 

1 FORI = 5581 6T056296 :POKEI,6 :POKE 
I-CO,160 :NEXT:G = 0 

2 POKEV+21,63:POKE2040,1 92:POKE2 
041,193:POKE2042,194:POKE2043, 

195:POKEV+44,7 

3 POKE2044,195:POKE2045,196:POKE 
V+39,1:POKEV + 40,14:POKEV+41 ,0: 
PO K EV + 42,21 

4 POKEV+43,7 :POKEV+29,18:POKEV+2 
3,16 : FORI=0TO318 :READQ:POKEI22 
88+1,Q:NEXT:X=26 

5 Y=1 33:X1 =29:Yl=160+INT(RND( 1 ) * 
60):POKEV,X:POKEV+1,Y:D=1:POKE 
V+2,Xl:POKEV+3,Yl 

6 FORJ = 0TO24:FORI = 553 30TO553 35: P 
OKEI+J* 40,2:POKEI+J*40-CO,160: 
NEXTI,J 

7 POKEV+ 5,160+INT(RND(1)*60) :POK 
EV+4,70 + INT(RND(l )*180) 

8 PRINT" {HOME} { 11 GIU'HGRN} 

{RVS} [<C>) {OFF}{GIU’ ){SIN} 

{RVS}{ 4 SPAZI}{OFF}£{RVS}": PO 
KEV+8,210 :POKEV + 9,55 :GOSUBtì0 

9 POKE54296,l:POKE54278,240 :POKE 
54276,129:TI$="000000" 

10 PRINT"{HOME){ 3 GIU'} 

{ 6 SIN}{RED}{RVSjTIME" 

11 PRINT”{HOME}{ 3 GIU’} 

{ 2 SIN){WHT)";RIGHTS(TI$,2) : 
POKE55652+INT(F)*40,4 

12 XI =Xl +D*2:IFXl>24OTHEND = INT(R 
ND(1)*3-3):Y1=160+INT(RND(1)* 
60) 

13 IFXl<28THEND = INT(RND(1 )*3 + 1 ) : 
Yl=160 + 1 NT(RND(1)*60) 

14 POKEV+2,Xl:POKEV+3,Yl 
20 PE=PEEK(197) 


pita per errore, esploderà distruggendo voi e 
tutto ciò che avete intorno. Per muovervi e spa¬ 
rare usate i seguenti tasti: 

Z per salire 
X per scendere 
> destra 
< sinistra 

spazio per sganciare una bomba 


25 IFPE=60ANDX>60ANDX2=0THENX2=X 
:Y2=Y+8:Gl=0:F=F-.l:POKE53273 
,200 

26 IFX2> OTHENGOSUBl00 

27 IFF<1THEN53 

28 IFPEOÌ 2ANDPEO20ANDPEO47AND 
PE<>44THENPOKE54272,0 :POKE542 
73,0 : GOTO56 

29 POKE54273,108:POKE54272,223 

30 IFPE=12ANDY> 50THENY = Y-2 

40 IFPE = 47ANDX>28THENX=X-4 

50 IFPE=44ANDX<230THENX=X+6 

51 F = F-.06 :IFPE=20THENF=F-.1 :G=G 
+ 2-.GOTO56 

53 IFY>140THEN5000 

54 IFF<1THENY = Y+G: GOTO 56 

55 G=0:GOTO58 

56 Y=Y+G:G=G+.1 :IFY>140THEN5000 

57 IFX> 25ANDX< 59ANDY> 1 33ANDO 1 . 3 
THEN500 

58 IFX>25ANDX<59ANDY>133THENG=0: 
F= 10 :Y = 133:GOSUB80 

59 POKEV,X:POKEV+1,Y: IFTI$»"0001 
00"THEN400 

60 GOTO 11 

80 PRINT"{HOME}{ 9 GIU’} 

{ 4 SIN}{WHT}{RVS}[<@>){GIU'} 
{SIN} (<9>) {GIU'}{SIN} [<@>] 
{GIU 1 }{S1N } [<&>} {GIU'}{SIN} 

[ <@> I {GIU 1 }{SIN} l<0>) {GIU'} 
{SIN} (<@>) {GIU*}{SIN} [<@>J 
{GIU 1 } {SIN} [ <($> 1 {GIU* } (SIN) 
[<<?>) {GIU ' } {SIN} [<@>] " 

85 RETURN 

100 X2=X2+.5:IFY2>140THENY2=Y2+G 
1/2 

102 IFY2<141THENY2=Y2+G1 

105 IFGl= OTHENPOKE54272,0 :POKE54 
273,40 

106 G1-G1+.3 


20 












110 POKEV+7,Y2 
112 POKEV+6,X2 

120 IFY2> 2 30THENY2 = 0:X2 = 0:POKEV+ 
7,0:G1-0 

125 IFPEEK(V+30)=10THEN200 

126 IFPEEK(V+30)* 12THEN300 
130 RETURN 

200 POKEV+2,0 :POKEV+ 3,0:POKEV+10 
,Xl:POKEV+11,Y1:POKE54296,!5 


210 FORI = 70TOl0STEP-.3:POKK54273 
,I :NEXT:POKE54273,0:POKE54 27 
2,0 


220 

230 


240 


250 


260 


FORI = 1TOl1 :POKEV+1,0:NEXT 
POKEV+10,0:POKEV+11,0:PRINT" 
{CLR} { 2 GIU'}{WHT}HAI DISTR 
UTTO IL SOMMERGIBILE!!!!!" 
PRINT"{ 2 GIU'}(GRN}BEN FATT 
O! " 

PRINT"{GIU 1 }{YEL}IL TUO TEMP 
O E'";RIGHT6(TI$,2);" SECOND 
I" 

GOTO 5050 


300 FORI = 1TOl1 :POKEV+1,0 :NEXT:PO 
KEV+29,32:POKEV+23,32 
310 POKEV+2,0:POKEV+3,0:POKEV+10 
,X2:POKEV+11 ,Y2:POKE54 2 96,1 5 
:POKE53 281 ,8 

320 FORI=90TO0STEP-.2:POKE54273, 
I:POKE53280,1/10:NEXT:POKE54 
273,0:POKE54 272,0 
325 POKE53280,0:POKE53281,0:POKE 
V+29,0 :POKEV+23,0 
330 POKEV+10,0:POKEV+11,0:PRINT" 
{CLR}{ 2 GIU'}{WHT}(RVS)HAI 
COLPITO LA MINA ATOMICA!!!!! 


I I I I I I I •» 


340 PRINT"{ 2 GIU*}{GRN}PAZZO!! ! 

i i •• 

• • 


350 PRINT"{GIU'}{YEL}SEI DURATO 
PER ";RIGHT8(TI$,2); " SECOND 
I." 

360 GOTO5050 


400 POKES4296,l5:POKE54276,0:POK 
E54276,33 

410 FORI«255TOOSTEP-2:POKE54273, 
I :NEXT:POKE54273,0:POKE54272 
,0 

420 FORI = 0TOl1 :POKEV+1,0 :NEXT:PO 
KE53280,0:POKE53281,0 
430 PRINT"{CLR}{ 2 GIU’}{WHT}FUO 
RI TEMPO MASSIMO!" 


435 PRINT"{ 2 GIU'}{BLU}IL SOMME 
RGIBILE LANCERA' IL SUO MISS 
ILE ATOMICO!!!!!!" 

440 PRINT"{ 3 GIU'}{GRNjINCAPACE 

I 1 l ! 1 ! " 

450 GOTO5050 

500 POKEV,0:POKEV+1,0 :POKEV+10,X 
:POKEV+11,Y:POKE54296,15 
510 FORI=70T020STEP-.2:POKE54273 
,I :NEXT:POKE54 27 3,0 :POKE54 27 


2,0 

520 FORI = 1TO11 :POKEV+1,0 :NEXT 
530 POKEV+10,0:POKEV+1 1 ,0:PRINT" 
{CLR}{ 2 GIU'}{WHT}SEI FINIT 
O CONTRO LA NAVE!J! ! I" 

540 PRINT"{ 2 GIU')SFORTUNA!" 

550 GOTO5050 

5000 POKEV,0:POKEV+1,0:POKEV+10, 
X:POKEV+11,Y:POKE54296,15 
5010 FORI = 80TO30STEP-.2 :POKE5427 
3,I:NEXT:POKE54273,0:POKE54 
272,0 

5020 FORI = 1TOl1 :POKEV+1,0 :NEXT 
5030 POKEV+10,0:POKEV+11,0:PRINT 
"{CLR}{ 2 GIU'}{WHTjSEI FIN 
ITO IN MARE!! ! ! !" 

5040 PRINT"{ 2 GIU'){GRN}PECCATO 

19 

5050 PRINT"{HOME}{ 14 GIU'}{CYN} 
GIOCHI ANCORA?" 

5060 A$ = "":GETA$:IFA$*"S"THENRUN 

5070 IFA$< >"N"THEN5060 

5080 PRINT"{ 2 GIU*}{PUR}BYE BYE 

II 

5090 END 

9000 DATA0,0,0,0,0,0,192,0,0,192 
,0,0,240,0,0,252,3,0,255,25 
5,192,255,255,252 
9010 DATA63,255,255,63,255,240,3 
1,240,0,63,2S2,0,63,0,0,0,0 
,0,0,0,0,0,0,0,0,0 
9020 DATA0,0,0,0,0,0,0,0,0,0,0,0 
,0,99 

9030 DATA0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,56,0,0,56,0,0,124, 
0,3,255,192,127,255 
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9040 DATA252 *255,255,255,255,255 
,252,15,255,224,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9050 DATAO,0,0,0,0,0,0,0,99 

9060 DATAO,0,0,0,0,0,0,,0,0,0,0, 
4,8,16,2,8,32,1,8,64,0,136, 
128,0,127,0,0,127,0 

9070 DATA7,255,240,0,1 27,0,0,1 27 
,0,0,136,128,1,8,64,2,8,32, 
4,8 

9080 DATAI 6,0,0,0,0,0,0,0,0,0,0, 
0,0,99 

9090 DATAO,0,0,0,0,0,0,0,0,0,0,0 




,0,0,0,0,0,0,0,0,0 

#0 

,28,0 

,0 



,62,0,0,127,0,0 




91 

00 

DATA127,0,0,127,0, 

0, 

62,0, 

0, 



28,0,0,0,0,0,0,0,0 

,0 

,0,0, 

0, 



0,0,0,0,0,0,0,0,0, 

0 



91 

10 

DATA99,1 28,0,32,1 8 

,1 

,8,23 

3, 



0,4,99,63,1,48,84, 

32 

,19,8 

,1 



,89,109,22 




91 

20 

DATA8,12,38,0,52,1 

49 

,128, 

24 



3,211,99,63,0,128, 

72 

,1,19 

,8 



,0,89,2,22 




91 

30 

DATA99,0,2,18,76,1 

49 

,2,64 

,1 



,99,4,7,91,16,0,19 

,8 

,54,1 

,1 


09,22 



( 

:64 

C 


Backgammon 



Il Backgammon é ormai un gioco molto diffu¬ 
so anche in Italia, ed eccone ora una versione 
'informatica'. Si gioca ovviamente contro il C64 
e, dopo il sorteggio iniziale per stabilire a che 
tocchi la prima mossa, sarà sufficiente premere 
le coordinate della pedina che si intende muo¬ 
vere. Poiché il computer accetta una mossa alla 
volta, é possibile effettuare la mossa corrispon¬ 
dente all'altro dado premendo il tasto Z. In si¬ 
tuazioni in cui non ci si possa muovere in al¬ 
cun modo, premere due volte il tasto Z, e la 


4 POKE 54276,17:P0KE 54272,100 

5 CLR:SC=1024:CD=55296-1024 

6 POKE 54296,1 5 :RO*.99 :SR=40:POK 
E53280,0 

10 POKE53281 , 1 :PRINT"{PUR}{CLR} 

{ 5 GIU'}{ 15 DES}BACKGAMMON 
{ 2 GIU'}" 

11 PRINT”{RED}{ 14 SPAZI}LIVELLO 
(1-3) ?{BLU} " ; :GOSUB700:DIMA( 
25) , P ( 1 2 ) ,Q ( 1 2) 

80 W(1)=-300:W(2)=500:W(3)=400:W 
(4)=200 :W{5)=0:W(6)=-200:W(0) 
= 999 

90 LV=50-ASC(I$) :IFLV<1GOTOl00 

95 W(3)=100:W(4)=-300:W(5)=-500: 
W(6)=-l200:W (0)=200 

100 W(7)=70:W(8)=700:W(9)=450 

500 R=15:S=15 

520 A(1)=2 : A(6)=-5 


mossa passerà al computer. 

Naturalmente questo programma non preten¬ 
de di essere all'altezza di quelli in codice mac¬ 
china per Backgammon o scacchi ma. alme¬ 
no per un principiante, si rivelerà molto utile 
per apprendere le migliori strategie di gioco. Da¬ 
to il poco spazio disponibile non é possibile spie¬ 
gare qui le regole del Backgammon; chi non 
le cpnoscesse può tuttavia fare riferimento ai 
molti libri sull'argomento disponibili in commer¬ 
cio. 


530 A(8)=-3:A(l2)=5 
540 FORI = 1TOl2 : A(25-I)=-A(I):NEX 
T 

580 PRINT"{CLR}{ 9 GIU'} 

{ 5 SPAZI}C64{ 6 GIU’} 

{ 3 SIN} TU" 

590 GOSUB4000:IFPP=QQGOTO590 
600 GOSUB5600:GOSUB6000 
610 GOSUB5000:F=1:G=1:IFPP>QQGOT 
02000 

620 GOTOl040 

700 GETI$ : I FI $ = ""GOTO700 
705 GOSUB9200:MM = 0:GOTO5500 
1000 GOSUB5500 
1010 GOSUB9300 

1020 PRINT"{HOME}UN TASTO PER TI 
RARE I DADI";:GOSUB700 
1040 GOSUB4000:K=0:M=2:IFPP=QQTH 
ENM = 4 
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1050 G=0:G0SUB151 0 
1 060 GOSUB5500:PRINT"{HOME}{RED} 
TUA MOSSA CON IL";PP;" ";:G 
OSUB700:N=0 

1070 N=N+1:IFN<>ASC(1$)GOTO!070 
1090 N=N-64 :IFN>260RN<1GOTOl050 
1100 IFN=25GOTOl330 
1105 IFN=26GOTOl370 
1110 IFBB=0GOTOl150 
1120 GOSUB5500:PRINT"{HOME}SEI S 
UL BAR"; :MM=1 :GOSUB5600 
1130 GOTOl050 
1150 IFA(N)>OGOTOl180 
1160 GOSUB5500:PRINT"{HOMEjNIENT 
EQUI !";:MM=1:GOSUB5600 
1 170 GOTOl130 
1180 IFN+PP<25GOT01 220 
1190 IFT=RTHENF=0:GOTOl410 
1200 GOSUB5500:PRINT"{HOMEjNON P 
UOI!";:MM=1:GOSUB5600 
1210 GOTOl130 
1220 IFA(N+PP)>-2GOT01250 
1230 GOSUB5500SPRINT"(HOME)E' BL 
OCCATO!";:MM=1:GOSUB5600 
1 240 GOTOl130 

1 250 A(N)=A(N)-1 :GOSUB5000:N=N+P 
P 

1 260 IFA(N)>-1 GOTO1290 
1270 A(N)=0:B=B+1:GOSUB5500 
1280 PRINT"{HOMEjMI HAI MANGIATO 
! " ; 

1290 A(N)=A(N)+1:M=M-1:GOSUB5000 

1300 PP=QQ:IFM>0GOTOl050 
1310 GOTO 2000 
1330 IFBB>0GOTOl350 
1340 GOTOl160 
1350 IFA(PP)<-lGOTOl230 
1360 N=0:BB=BB-1:GOTOl250 
1370 IFK=OGOTOl400 
1380 GOSUB5500:PRINT"{HOME}SEI B 
LOCCATO ?" ;SGOSUB700:IFI$ = " 
N"GOT01400 
1390 GOTO2000 

1400 K=PP:PP=QQ:QQ“K:GOTOl050 
1410 IFN+PP>25GOT01460 
1 420 R=R-1 :IFR>OGOTOl4 50 
1430 GOSUB5500:PRINT"{HOMEjHAI V 
INTO!";:GOSUB700:RUN 
1450 A(N)=A(N)-1:N=0:GOTOl290 
1460 FORI=19TON-1 
1 470 IFA(I)<1 GOTO1500 
1480 GOSUB5500:PRINT"(HOME)NON P 
UOI MUOVERE IN ";CHR$(I+64) 
;:MM=1:GOSUB5600 
1490 GOTOl130 
1500 NEXT:GOTOl420 
1510 T = 0: FORI = 19T024 
1 520 IFA ( I ) >0THF.NT=T+A ( I ) 

1530 NEXT:RETURN 
2000 IFLV<1THENGOSUB7000 
2005 IFLV<0THENW(1)=-300 :GOSUB90 
00 


2010 GOSUB5500:PRINT"{HOME}{RED} 
LA MIA MOSSA";:GOSUB5600 
2020 GOSUB4000:K=0:M=2:IFPP=QQTH 
ENM = 4 

2030 G=0:IFB>0 GOTO2240 
2040 C=0:FOR I=1T06 
2050 IFA(I)<0THENC=C-A(I) 

2060 NEXT:IFC=STHENF=0:GOTO2320 
2070 LZ = 0:GOSUB4 500 :GOSUB30 00 
2080 IFW>0GOTO2210 
2090 IFO>0THENN=P(X):GOT02120 
2100 GOSUB5500:PRINT"{HOMEjNON P 
OSSO MUOVERE"; 

2110 GOSUB5600:GOTOl000 
2120 GOSUB5500:PRINT"{HOME}CON I 
L";PP; 

2130 PRINT"MUOVERO' ";CHR$ (N+64) 

2140 A(N)=A(N)+1:GOSUB5000:N=N-P 
P 

2150 IFA(N)<1 GOTO2180 

2160 A(N)=0 :BB=BB+1:GOSUB5500 

2170 PRINT"{HOME}ECCO !"; 

2180 A(N)=A(N)-1:M=M-1:GOSUB5000 

2190 K=1:IFLV<1ANDM>1THENK=0 
2195 PP=QQ:IFM>0GOTO2030 
2200 GOTOl000 

2210 IFO>0ANDE>DTHENN=P(X):GOT02 
120 

2230 N=Q(Y):K=PP:PP=QQ:QQ=K:GOTO 
21 20 

2240 IFA(25-QQ)<2GOTO2280 
2250 IFA(25-PP)<2GOTO2270 
2260 GOTO2100 
2270 N=25:B=B-1:GOTO2120 
2280 IFA(25-PP)<2GOTO2300 
2290 K=PP:PP=QQ:QQ = K:GOTO2270 
2300 GOSUB4500:IFW<=0GOTO2290 
2310 G0T02270 

2320 IFLV<1ANDBB> 0THENLZ = 0 :GOSUB 
4500:IFO+W>0GOTO2070 
2322 IFLV< 0ANDBB = 0THENW(1)=550 
2325 IFA(PP)>=0GOTO2390 
2330 GOSUB5500:PRINT"{HOMEjMUOVO 

Il . 
t 

2340 PRINT"CON IL";PP; 

2350 S=S-1:IFS>0GOTO2380 
2360 GOSUB5500:PRINT"{HOMEjHO VI 
NTO":GOSUB700:RUN 
2380 N=PP:A(N)=A(N)+2: GOTO 21 80 
2390 FORI=6TOlSTEP-1 
2400 IFA(I)<0ANDI>PPTHENJ = I: 1 = 0: 

NEXT:I=J:GOTO2070 
2410 IFA(I)<0THENJ = I: I=0 :NEXT:1 = 
J:G0T024 30 
2420 NEXT 

2430 GOSUB5500SPRINT"{HOMEjNON P 
OSSO MUOVERE "; 

2440 PRINTCHR$ (1 + 64) ; 

2450 PP=I:GOTO2350 

3000 Xl=0 

3001 IFK>OORX1=1THENGOTO3010 


23 



3005 GOSUB5500:PRINT"{HOME}STO P 
ENSANDO.. 

3010 IFO=0GOTO3170 
3020 IFT=RGOTO3500 
3030 IFLV<0THENLZ=0:GOSUB4500 
3032 E = -9999 : FORI = 1TOO: H = 0 
3040 U=P(I):V=W(7)*U 
3050 A(U)=A(U)+1 :IFA(U-PP)<lGOTO 
3070 

3060 H = 1: A(U-PP)=0 :V=V+W(8):IFU> 
18+PPTHENV=V+W(9) 

3070 A(U-PP)=A(U-PP)-1:IFLV<1 AND 
M>1GOT03132 

3080 FORJ =1TO 2 4 :1FA(J)> = OGOTO313 
0 

3090 L=6:IFA(J)>-6THENL=-A(J) 
3120 GOSUB8000 
3130 NEXT 

3132 W=V: UU=U :HH=H : 11 = I : IFLV< 1 T 
HENGOSUB3170 

3135 V=D+W:U=UU:H=HH: 1 = 11 
3138 IFV>ETHENE=V:X=I 
3140 A(U)= A(U)-1 
3150 IFH=lTHENA(U-PP)=0 
3160 A(U-PP)=A(U-PP)+1 :NEXT 
3165 IFLV<1G0T03310 
3170 IFK>OORW= OGOTO34 00 
3180 IFLV<0THENLZ=1:GOSUB4500 
3182 D=-9999:FORI=lTOW:H=0 
31 90 U=Q (I) :V“W(7)*U 
3200 A(U)-A(U)+1 :IFA(U-QQ)<lGOTO 
3220 

3210 H = 1: A(U-QQ)=0:V=V+W(8) :IFU> 
18+QQTHENV-V+W(9) 

3220 A(U-QQ)=A(U-QQ)-1 

3222 IFLV>-1 OR(B+BB)>0GOTO3230 

3224 11 «25 :Jl«0 

3225 Il-Il-l :IFA(II) >=0GOTO3225 

3226 Jl^Jl + 1:IFA(Jl)<1 GOTO3226 
3228 IFJ1>11THENV=V+100 *CO 

3230 FORJ=lT024: IFA(J)> = OGOTO327 
0 

3240 L=6:IFA(J)>-6THENL=-A(J) 
3260 GOSUB8000 
3270 NEXT:IFV>DTHEND=V:Y=I 
3280 A(U)-A(U)-1 
3290 IFH= 1THENA(U-QQ)» 0 
3300 A(U-QQ)“A(U-QQ)+1:NEXT:RETU 
RN 

3310 IFLV>-1ORPP-QQTHENRETURN 
3320 IFXl = 0THF.NX1 =1 :D1 »K:YY-X:QY 
=P(X) :GOSUB33 50: GOTO 3001 
3330 D=Dl: Y=YY:Q(Y)*QY: RETURN 
3350 FORKl=1 TOT 2:K2 = P(Kl) :P(Kl) = 
Q(Kl):Q(K1)=K2:NEXT:Kl=0:0= 
W:W=Kl:Kl=PP:PP=QQ:QQ=K1 
3400 RETURN 
3500 X=0:Y=W:0=SGN(0) 

3505 W=SGN(W) 

3510 GOTO3400 

4000 I=SC + 356:IFG< >0THENG = 0: GOTO 
4050 

4005 PP = INT(RND(0)* 6)+1:QQ = INT(R 


ND (0)*6)+1 

4050 PA=PP:J=I:GOSUB4100:PA=QQ:J 
=1+240 

4100 K3=32:Jl=4:FORK=JTOJ+80STEP 
40 :FORKl=0TO2:K2 = K+Kl:GOSUB 
4300 :NEXT:NEXT 

4200 K3=81:K2=J+41:IFPAANDlTHENG 
OSUB4300 

4210 IFPA=1THENRETURN 
4220 K2=J+2:GOSUB4300:K2=J+80:GO 
SUB4300 

4230 IFPA< 4THENRETURN 
4240 K2=J:GOSUB4300:K2=J+82:GOSU 
B4300 

4250 IF PA< 6THENRETU RN 

4260 K2=J+40:GOSUB4300:K2=J+42:G 
OTO4300 

4299 RETURN 

4300 POKEK2,K3:POKEK2+CD,Jl:RETU 
RN 

4500 IFLZ=0THENO=0 

4510 W=0 : FORI = 1T024 

4520 IFA(I)>=0GOTO4590 

4530 IFI-PP<1GOTO4560 

4540 IFA(I-PP)>1GOTO4560 

4545 IFLZ = 1 GOTO4560 

4550 0=0+1 :P(0)=I 

4560 IFK>OORI-QQ<1G0T04590 

4570 IFA(I-QQ)>1 GOTO4 590 

4580 W=W+1:Q(W)=1 

4590 NEXT:RETURN 

5000 K2 = 32:J=SC + 28 4 : FORI = 1TO24 

5010 Kl=81:IFA(I)<0THENK1=87 

5015 VI=ABS(A(I)):GOSUB5400 

5300 J=J+1:IFI>12THENJ=J-2 

5310 IFI=6THENJ=J+3 

5320 IFI = 12THENJ =J + 399 

5330 IFI = 18THENJ =J-3 

5340 NEXT 

5350 K2=l60:J=J+8:Kl=81 : Vi=BB:GO 
SUB5400: 1 = 0 :Kl= 87 : Vi=B:J=J- 
400 

5400 POKE 54273,100 

5401 FOR J1=0 TO VI 

5402 K3 = 0 :IF Kl= 81 THEN K3 = 2 

5404 V=J +SGN(12.5-1)*SR*J1:IFJl = 
ViTHENKl =K2 : K3 = 5 

5405 S1=V+CD-2:Xl=INT(SI/SR+RO ) 
*SR:X2 = S1-XI : SI=Xl+X2* 2 + 22 

5407 CI=V-2: XI=INT(Cl/SR+RO )*S 
R:X2=C1-Xl:C1=Xl+X2*2+l4 

5408 POKE54 273,V1* 10 

5409 POKECl,Kl:POKESl,K3:NEXT:PO 
KE 54273,0 

5410 RETURN 

5500 FORJ = 0TO39:POKEJ+SC,32 :NEXT 
.-RETURN 

5600 IFMM=1THENGOSUB9100 
5610 FORK=lTO3500:NEXT:RETURN 
6000 PRINT"{CLR)":FOR K=1024T020 
23:POKER,!60:NEXT: FORK=552 
96T056295:POKER,5:NEXT 
6005 PRINT"{RVS}{ 22 SPAZI}"; 
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6006 PRINT"{RVS}{ 18 SPAZI}"; 
6010 PRINT" {GIU ' } {RVS}{BLU} 

{ 2 SPAZI}A B C D E F 

{ 7 SPAZI)G H I J K L 

{ 2 SPAZI}{GIU'}{GRN}" 

6060 GOSUB6200 

6070 PRINT"{DES}{ 13 SPAZI}{RVS} 

{ 2 SPAZI}{BLU}Y{GRN} 

{ 2 SPAZI}{OFF}{ 13 SPAZI} 

"SGOSUB6200 

6080 PRINT"{GIU'}{RVS}{BLU} 

{ 2 SPAZI}X W V U T S 

{ 7 SPAZI}R Q P 0 N M 

{ 2 SPAZI}{GRN}" 

6082 POKE1342,95:POKE55614,5:POK 
E1 341 ,96 :POKE5561 3,5:POKEl3 
40,96:POKE55612,5 

6084 POKEl339,96:POKE55611,5:POK 
El 379,96 :POKE55651 , 5 :POKE 

1419.96 :POKE 55691 ,5 

6086 POKE 1459,223:POKE55731,5 
6088 POKEl 582,95: POKF.55854 ,S:POK 
E1 581 ,96:POKE55853,5:POKEl5 
80,96:POKE55852,5 

6090 POKEl 579,96:POKE55851 ,5: POK 
El619,96 :POKE55891,5 :POKE 

1659.96 :POKE 55931,5 
6092 POKE 1699,223:POKE55971,5 

6198 RETURN 

6200 FORK=0TO6:PRINT"{RVS} {OFF} 
{ 13 SPAZI}{RVS}{ 5 SPAZI} 
{OFF}{ 13 SPAZI}{RVS}":NEXT 
: RETURN 

7000 IFB+BB< >0THENRETURN 
7010 I=25:J=0 


7015 1 = 1-1 :IFA(I)> = 0GOTO7015 
7020 J=J + 1 : IFA(J) OG0T07020 
7025 JA = J:IFJ<ITHENRETURN 
7030 FORJ=0T06:W(J)=-25*J:NEXT:L 
V* 1 : RETURN 

8000 V=V+W(L)-W(0)*(L=l) *(J<7) 
8002 IFW(0)= OORW(9)=0THENV=V-36* 
L* (J-l/6) 

8005 IFLV»ITHENRETURN 

8007 IFJ<11 ANDA(J)<-1 ANDA(J + l)<- 
1 THENV=V+W (0) HFA(J-l) <-lTH 
B:NV = V+W(0) 

8008 IFLOITHENRETURN 

8010 V = V+(J- 25)*W(7) :IFJ>JAORBB> 
0THENRETURN 

8030 V=V-W(1)-(J-25)*W(7)-W(0)*( 
J< 7) : RETURN 

9000 CO=0:CC=0:IFB>0GOTO9040 
9010 CC=0:CY=0:FORK=lT024:IFA(K) 
> 0THENCY=CY+A(K)*(25-K) 

9020 I FA(K)<1THENCC=CC-A(K)*K 
9030 NEXT:CY=CY+26*BB:CO=CY-CC 
9040 IFCO*10>CCTHEN:WW(8)= 0 :WW(9 
)=0:RETURN 

9050 W(8)=700:W(9)=450:RETURN 
9100 POKE36876,l?9:POKE36878,15: 
FORKl= 0TO500:NEXT:POKE368 78 
,0 : RETURN 

9200 FORK1=1TOl50STEP5:FORDY=lTO 
10 :NEXT:POKE54 27 3,Kl :POKE54 

272.100 

9210 NEXT: POKE 54273,0 : RETURN 
9300 FORKl=150TO1STEP-5:FORDY=lT 
010:NEXT:POKE54273,Kl:POKE5 

4272.100 

9310 NEXT: POKE 54273,0 : RETURN 


Astrostorm 



/Mentre il capitano Bosdiger della navetta in¬ 
terstellare Viccard sta orbitando intorno al suo 
pianeta, gli giunge un messaggio interstellare 
dal sistema solariano che si trova in pericolo. 
Egli deve portare alcune materie prime, che nel 
suo pianeta abbondano, al sistema solariano 
che ne ha un estremo bisogno. 

Così, senza alcuna esitazione, intraprende il 
pericoloso viaggio che dura due minuti terre¬ 
stri e sulla cui rotta si trovano numerosi aste¬ 


roidi vaganti. 

Riuscirà il capitano Bosdiger a salvare la sua 
vita ed il prezioso carico del Viccard che può 
risparmiare al sistema solariano l'annientamen¬ 
to sicuro?? 

Per tentarci basta un Joystick o due tasti della 
tastiera (’Z‘ e ‘C')H 

Per iniziare la discesa basta premere 'fire' sul 
Joystick o ’H' sulla tastiera. 
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5 POKE36879,8 

10 PRINT"{CLR}{PUR}":POKE371 39,0 
:DD=371 54:PA=371 37:PB=371 52 
45 IFLF=1THEN1000 
47 PRINT"{ 5 DES}{ 4 GIU'}ASTROS 
TORM" 

50 PRINT"{GIU'}{ 5 DES}JOYSTICK( 
1)":PRINT"{ 5 DES}TASTIERA(2) 

II 

55 GETR$ 

60 IFR$="1"THENR=1:GOTO70 
65 IFR$ = "2"THENR» 2 : GOTO70 
68 GOT055 

70 FORJ=0TO2:READJS(J):NEXTJ:GOS 
UB5000 
80 GOTO900 

100 POKEDD,12 7:S3W=-((PEEK ( PB)AN 
Di 28)=0):POKEDD,2 55 
110 P=PEEK(PA):S2=((PANDI 6)=0) 
120 FR=-((PAND32)=0):X=S2W+S3W 
130 DN=JS(X+1): RETURN 
200 IFPEEK(197)*33THENDN=-1:RETU 
RN 

210 IFPEEK(197)»34THENDN=1:RETUR 
N 

220 IFPEEK(197)=64THENDN=0sRETUR 
N 

230 RETURN 

500 IFDNOOANDPEEK (S-DN) 0 42THEN 
POKES-DN,32 
50 5 FORII* 1T02 
51-0 POKEOP , 32 : POKEOP-DN, 32 
520 OP=OP-22 
53 0 NEXTII: RETURN 
900 IFLF=1THEN1000 
910 PRINT"{GIU'}DENSITÀ' DI ASTE 
ROIDI (5 / 18)":INPUTL 
920 IFL<5THENPRINT"{GIU’}TROPPO 
FACILE":GOTO900 

930 IFL> 1 8THENPRINT"{GIU'}TROPPO 
RISCHIOSA":GOT0910 
940 LF-1:PRINT"{CLR}":GOSUB2200 
1000 PRINT"{CLR}{ 18 GIU'}" 

1020 POKE36878,15 
1 030 S = 4* (PEEfC(36866) ANDl 28) +64* 
(PEEK(36869)ANDl20):C=37888 
+4*(PEEK(36866)ANDl28) 

1040 CK=1:S=S+22*(L+1):OP=S:SB=S 
-1:SE=S+23 
2000 FORG=1T0418 

2010 NA=INT(RND(TI)*22):CC“INT(R 
ND (TI) *7) +1 

2040 POKE646,CC:PRINTTAB(NA)"*"; 

2055 PT=PT+DN*(NA*CC*INT((LE.5)+ 

.5)) 

2060 IFS=SBTHENPOKES,32:S-S+22:W 
=W- 1 

2065 IFS=SETHENPOKES,32:S«S-22:W 
-W+1 

2070 IFPEEK(S)«420RPEEK (S+22)=42 
THENPOKE646, 1 :GOSUB8000 :GOS 
UB7000:GOTO2200 


2085 ONRGOSUB100,200:OP=S-22:S*S 
+DN 

2090 CK»CK*-1:POKE36875,127+CK:G 
OSUB500:POKES,61+DN:POKES+C 
,1 SPRINT 
2100 NEXTG 

2110 PRINT"{YEL}"sPOKE36875,0 :GO 
SUB6000 

2200 PT»0:IFPEEK(197)«43THENREST 
ORE :LF=1 :GOTO70 

2210 POKE37139,0:IF(PEEK(PA)AND3 
2)“OTHENRESTORE:LF=1:POKE37 
1 39,1 28 :GOTO70 

2215 NA=INT(RND(TI)*22):CC“INT(R 
ND (TI) *7) +1 

2220 POKE646,CC:PRINTTAB(NA) 

2240 POKE37139,128:GOTO2200 
5000 A s 20:POKE36878,1 5 
5010 READC,T,Z:T=T*A:Z=Z*A 
5030 POKE36875,C:FORI»!TOZ:NEXTI 
:POKE3 687 5,0 : FORICITOZ:NEXT 
I 

5050 IFZ>0THEN5010 
5100 RETURN 
6000 POKE36875,0 

600 5 IFW< 6THENPRINT"{ 2 SPAZI} NO 
N HAI COMPLETATO{ 5 SPAZI} 
LA TUA MISSIONE !":GOT06200 
6010 PRINT:PRINT"HAI COMPLETATO 
{ 2 SPAZI}LA TUA{ 6 SPAZI} 
MISSIONE !"; 

6020 PRINT"IL SISTEMA SOLARIANO 
{ 2 SPAZI}TI HA PREMIATO CO 
N "; PT 

6030 PRINT"CREDITI{ 2 SPAZl}SOLA 
RIANI PER{ 3 SPAZI}! TUOI S 
ERVIZI 

6040 PRINT"VUOI{ 2 SPAZI}PARTECI 
PARE AD{ 4 SPAZI}UN'ALTRA M 
ISSIONE?" 

6060 GETR$:IFR$="S"ORR$-"N"THEN6 
070 

6065 GOTO6065 
6070 IFR$="N"THENCLR:END 
6080 PRINT" VUOI LA{ 2 SPAZIjDEN 
SITA' DI{ 2 SPAZI}ASTEROIDI 
COME NELLA{ 4 SPAZI}SCORSA 
{ 2 SPAZI}PARTITA?" 

61 00 GETR$:IFR$«"S"ORR$«"N"THEN6 
110 

6105 GOTO6100 

6110 IF R$ = "N"THE NRUN 

61 20 RETURN 

6200 PRINT"IL GOVERNO SOLARIANO 
{ 2 SPAZI}TI HA PREMIATO CO 
N";PT;" CREDITI GALATTICI" 
6210 PRINT"ESSO HA ALTRE MISSION 
I{ 8 SPAZI}PER TEI"SFORI»IT 
07000 :NEXT:RETURN 
7000 POKE36875,0 :PRINT"{CLR} NON 
CI SEI RIUSCITO. 

{ 2 SPAZI}IL GOVERNO SOLARI 
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ANO HA RICOMPENSATO"; 

7020 PRINT" LA TUAFAMIGLIA CON"; 

PT;PRINT"CREOITI GALATTICI" 
7025 PRINT"PREMI ’C' PER CAMBIAR 
E{ 4 SPAZI}LA DENSITÀ' DI 
{ 10 SPAZI}ASTEROIDI." 

7030 FORI*1TO700:IFPEEK(1 97) *3 4T 
HENFORJ * 1TOl0 :GETR$:NEXTJ:R 
UN 

7040 NEXTI:RETURN 
8000 PRINT"{YEL}":POKE36875,0 
8060 E(1)*S-23:E(2)=S-22:E(3)= S- 
1 :E(4)*S:E(5)*S+23sE(6)= S+2 
2:E(7)=S+1 : E(8)=S 
8090 FORI » 1T08:READA(I) :POKEE(I) 

,A(I)s POKEE(I)+C,2 :NEXTI 
81 1 0 A(4)*A(1) :A(8)=A(5) 

8130 A» 2 sIFL>17THENA*1 
8150 FORI-1T0A:F0RJ=1T08:POKEE(J 
) , 32 :POKEE(J)+C,0 :NEXTJ s PRI 
NT 

8160 E(1)-E(1)-23-22*(I-1)sE(2)- 
E(2)-22-22*(1-1 ): E(3)-E(3)- 
1 - 22 * ( 1 - 1 ) 

8165 E(4)»E(4)-23-22*(I-l)sE(5)■ 
E(1)+23+22*(1-1)sE(6)-E(6)+ 
22+22*(I-1) 


8168 E(7)=E(7)+1+22*(I-1):E(8)=E 
(8)+23+22*(1-1) 

8170 FORJ=1T08:POKEE(J) ,A(J):POK 
EE(J)+C,2 :NEXTJ 

8180 FORJ=1TOl00:POKE36877,220:N 
EXTJ:POKE36877,0:NEXTI 

8200 F0RI=1T06:READA(I)SNEXTI:PO 
KE36877,220 

8220 FORI=l4TOOSTEP-2 

8235 POKE36878,I 

8237 FORJ=1T06:POKE36879,A(J):FO 
RG=1T02 5:NEXTG,J • 

8240 POKE36879,8:NEXTI:P0KE36877 
,0 : RETURN 

9100 DATA-1,0,1,237,10,1,237,5,1 
,177,20,5,177,20,5,237,10,1 
,177,5,1,140,20,5 

9105 DATA237,10,1,177,5,1,140,15 
,2,237,10,1,177,5,1,140,20, 
5, 237,1 0, 1,1 77,5,1 ,1 40,25,5 

9110 DATAI 77,10,1,140,5,1,118,25 
,1,140,20,1,177,15,1,237,25 
,1,237,20,1,237,10,1,177,25 
,0 

9200 DATA77,66,64,42,77,66,64,42 
,25,42,127,143,159,2** 



j.R., il famoso magnate texano del petrolio, ha 
deciso di sfruttare un nuovo giacimento ed ha 
incaricato te, il suo ingegnere minerario, di oc¬ 
cuparsi dell'estrazione dell'“oro nero", cercan¬ 
do di ricavarne il maggior quantitativo possibile 
di dollari. Disponi di 5 torri estrattive, che puoi 
usare una alla volta, e devi fare i conti con un 
sottosuolo particolarmente difficile che, oltre al¬ 
le sacche di petrolio e alla terra, contiene an¬ 
che dure rocce stratificate che consumano la 
trivella senza intaccarsi; il solo modo per per¬ 
forarle è farle saltare con la dinamite, di cui 
però hai scorte limitate. Inoltre negli spazi vuoti 
lascati dal pompaggio del petrolio spesso si for¬ 
ma del gas naturale che, se viene a contatto 
con la trivella, può provocare una violenta 
esplosione che distrugge la torre. Come se tut¬ 
to ciò non bastasse, nel petrolio talvolta si na¬ 


scondono mostri malefici che, se disturbati, fan¬ 
no anch 'essi saltare in aria la torre; per com¬ 
batterli puoi usare la dinamite. 

Veniamo ora ora al programma, che è diviso 
in due parti che devi digitare e salvare su na¬ 
stro una dopo l’altra: la prima ridefmisce al¬ 
cuni caratteri, memorizza una routine in lin¬ 
guaggio macchina e carica la seconda (il gioco 
vero e proprio), che parte automaticamente. 
Sullo schermo viene visuahzzatto il giacimen¬ 
to, diverso ad ogni partita, visto in sezione, ed 
in alto compaiono, da sinistra, le torri ancora 
a disposizione, le cariche di dinemite non uti¬ 
lizzate ed il numero di dollari guadagnati; im¬ 
mediatamente sotto appaiono i segmenti di cui 
è composta la trivella (inizialmente 20 per ogni 
torre). Nel terreno, i quadrati neri rappresen¬ 
tano il petrolio, quelli gialli la terra e le forme 
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irregolari sono le rocce. 

Si gioca col joystick: a destra e a sinistra per 
spostare la torre, in giù per perforare il terre¬ 
no e in su per ritirare la trivella: la torre può 
muoversi solo se la trivella è rientrata. Il pul¬ 
sante ha tre usi distinti: mentre scavi, se l'e¬ 
stremità della trivella si trova nel petrolio o in 
uno spazio vuoto, entra in azione la pompa, 
e viene aspirato il petrolio presente in quel qua¬ 
drato e in quelli adiacenti (a patto che si trovi¬ 
no allo stesso livello oppure più in alto): i giaci¬ 
menti più profondi fruttano maggior guadaga- 
no. Se la trivella è nella terra, viene invece co¬ 


programma I 

20 PRINT" iCLRHGIU ' i { o SPAZI} 

{RVS}ISTRUZIONI":PRINT"{GIU'} 

{PUR]JOYSTICK{BLU)PRINT" D 
S ò, SN=MUOVE TORRE" 

30 PRINT" GIU '-PERt’ORA" : PRINT" S 
U=RITIRA TRIVELLA" 

40 PRINT"{GIU'}IPURjPULSANTE 

(BLU): CON TRIVELLA NEL PETRO 
LIO=POMPA" 

50 PRINT" NELLA TEI<RA=UINAMITE 
{ 2 SPAZI}K1TIRATA=NU0VA TORR 
E {GIU ' {ATTENZIONE A:" 

60 PRINT" {PURjROCCIA":PRINT" 

{RED{GAS {BLU}IN {YELjSPAZI V 
UOT1"," {RED{MOSTRI tBLU{NEL 
{BLK{PETROLIO" 

70 PRINT"{ 2 GIU'{{BLU} 

{ 3 SPAZI{«ATTENDI{ 2 SPAZI) 
PREGO»" 

80 POKE52,28:POKE56,28:POKE45,24 
8 :POKE4b,2o:CLR 

90 FORA»71 08T0737 5: READB: POKEA, B 
: NEXT 

100 DATA2,138,164,73,74,52,20,8, 
64,81,37,146,82,44,40,16,24, 
24,36,60,90,102,231,153 
110 DATA20,42,42,20,62,73,20,20, 
136,34,136,34,136,34,136,34, 
146,22,148,34,136,34,136,34 
120 DATAI 48,22,148,22,148,34, 1 3b 
,34,148,22,148,22,148,22,148 
,22,136,62,188,62,188,62 
125 DATAI 88,22 

130 DATAI 70,1 70, 1 70,170,1 70,1 70, 
170,170,150,150,150,170,170, 
170,170,170 

135 DATAI 50,1 50, 1 50, 1 50,1 50 
140 DATAI 70,1 70,1 70, 1 50,1 50,1 50, 
1 50,1 50,1 50, 1 50, 1 50,1 50,1 90, 
190,190,190,190,190,150 


lata una carica di dinamite, che esplode ap¬ 
pena incontra un blocco di terra, di roccia o 
un mostro. Se infine la trivella è rientrata, la 
torre salta in aria: puoi sfruttare quest'ultimo 
possibilità per sostituire una torre rimasta senza 
dinamite e con la trivella consumata. Ci sono 
8 livelli di difficoltà, selezionabili prima di ogni 
partita tramite il joystick: nei primi quattro il 
terreno contiene una quantità crescente di roc¬ 
ce, cosi nei quattro successivi, in cui però le 
rocce non sono visibili. Vinci una torre extra per 
ogni 100.000 dollari guadagnati e per ogni 
schermo completato. 


1 50 

DATAO,0,0,0,0,0, 

0,0,20 

,20 

,20 


,0,0,0,0,0,20,20 

,20,20 

,20 

,0, 


0,0,20,20,20,20, 

20,20, 

20, 

20 

160 

DATA20,60,bU,60, 

60,60, 

60, 

20, 


0,60,60,bO,00,60 

,60,0, 

0,0 

,0, 


265,255,0,0,0 




170 

DATA218,118,181, 

153,11 

0,93,1 


97,65,65,82,150, 

85,121 

,181 ,1 


50,173,2,106,12* 

,20,64 



175 

DATAI 62,129 




1 60 

DATA 2,lb9,l28,14 

1,19,1 

45, 

1 69 


,0,133,136,34,136,34,1 

36, 

34, 


136,34 




1 90 

FORA*74 24T0764U: 

POKEA, 

PEEK(2 


5b00+A):NEXT 




200 

F0RA=74b4T07529: 

READB: 

POKEA, 


B:NEXT 




21 0 

DATAI 69,1 28,1 41 , 

19,145 

,169,0 


,133,1,133,2,169 

,127,1 

41 , 

34, 


145,162,119,236, 

32,145 



220 

DATA20 8,4,169,1 , 

133,1, 

169 

,25 


5,141,34,145,162 

,118,236, 

17, 


145,208,4,169,22 

,133,1 



230 

DATAI 62,1 1 0,236, 

17,145 

,208,4 


,169,1,133,2,162 

,122,236, 

17, 


145,208,4,169,22 

,133,2 

,96 


240 

LO AD 





Leggete 
Supervic e 
Supersinc 
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programma 1 

2 PRINT" IGIU ' }FERMA IL NASTRO" :U 
=36873 

3 IFPEEK(37137)<10UTHEN3 

4 POKEU+1,30:POKEU,47:D1MA%(21 ) : 
W=776b 

5 IFZ>B* (T) THENBt (T) =Z 

6 POKEU-9,^40:PRINT"{CLR}(RED} 
l 3 SPAZI }"T,"$"Z*100" (BLU } " 

7 PRINT"{GIU'} {RVS}LIVELLO{OFF} 

2 SPAZI}{RVSlRECORD" 

8 FORA=1T06:PRINT"{GIU'} 

{ 8 SPAZI}"A,“$"B%(A)*100:NEXT 
:PRINT"{GIU 1 }{ 2 SPAZIJLIVELLO 
?{ 3 SPAZI}12345678":T=1 

8 SYS7464:POKE38852+T,6:T=T+PEEK 
(1)-PEEK(2):IFT<1ORT>8THENT=1 

10 POKE388 52+T,7 :L=3:IFT/2 = 1NT(T 
/2)THENL=2 

1 1 S = 20:IFT = 3ORT=4ORT>6THENS = 30 

12 N = 2 4 :IFT> 4THENN = 2 5:L=L+1 

13 IFPEEK(37137)>1Q0THEN9 

14 POKEU-9,285 

23 PRINT"{CLR}":M=5:Z=0: K=0:GOSU 
BB7 

24 POKEW+X,14 :X=10:M=M-1:P=20:Y= 
L:GOSUB62:1FM<0THEN5 

2d GOSUBbl:G0T034 

2b A=R*22+W+X:C=PEEK(A) :P”P-1 :GO 
SUB6 7 

27 IFONORC» JORA>bl 85THENFORA»1T 
03 :GOSUB99:NEXT:GOTO30 

28 IFRND(1)<.ObANUC-14THEN78 

29 FORB=1T03:POKEA,C+B:GOSUB99:N 
EXT :R=R +1 

30 SYS7464 :IFPEEK(1)=22ANDP>0THE 
N26 

31 IFPEEK(2)=22THEM40 

32 IFPEEK(371 37)<100THEN46 

33 GOTO30 

34 SYS7464:a=PEEK(1):B=PEEK(2):I 
FA=221’HENR= 1 :G0T026 

35 IFB=22THENJ4 

36 IFPEEK(37137)<100THEN24 

37 IFA>OORB>OTHENPOKEW+X,14 :X=X + 
A-B:IFX>21THENX=21 

38 IFX<0THENX=0 

39 POKEW+X,2:G0T034 

40 IFR=1THEN34 

41 R=R-1 :B=R*22+W+X:C=PEEK(B) :FO 
RA=1T03:POKEB,C-A:GOSUB99 :NEX 
T 

42 P = P+1 :GOSUBb7:IFR=1THEN44 

43 GOTO30 

44 F0RA=W+44T08185:IFPEEK(A)=9TH 
EN 34 

45 NEXT:M=M+Ì :FORC = 1T03:GOSUBb2: 
NEXT:GOSUB87 : GOSUBbl :G0'T034 

46 J=Z:U=R-1:FORA=0TO21:A%(A)=0: 
NEXT:B=Q* 22+W+X:A=PEEK(B) :IFA 
= 7THEN69 


47 A%(X)=1 :POKEU-1 ,252 :POKEU,36 : 
V=W+X-22 :IFA = 12THENPOKKB, 1 7 : Z 
=Z+0:POKEV,0 

48 E=U:F=20:D = 1:G = 1:I = 1:GOSUB52 : 
POKEV,1 :E=21:F=1:D=-1:G=D:I=D 
:GOSUB52 

49 E=0:F=21:D=1:G=-22:I=0:GOSUB5 
2 :POKEV,0 :IFC = 6THENB5 

50 IFH=0THENPOKEV,14:POKEU-1,0:P 
OKEU,4 7:GOSUB62:GOSUB61: GOTO3 
0 

51 Q=ù-1 :G0T048 

52 IFC = 6THENRETURN 

53 H=0:FORA=ETOFSTEPD:IFA%(A)=0T 
BEN 60 

54 B=Q*22+W+A+G:C=PEEK(B) 

55 IFC = 90RC = 12THENPOKEB,C + 5:H=1 : 
Z= Z+Q+ABS(I)-1 :A%(A+I)=1:GOTO 
59 

56 IFC = 140RC = 17THENA%(A+I)=1:H=1 
: GOTO60 

57 IFC=3THENC=6:RETURN 

5b A%(A+I)=0:GOTO60 

59 IFRND(1)<.02ANDC<>12THENC = b:R 
ETURN 

bO NEXT:RETURN 

61 PRINT"{HOME}{PUR}"SPC( 1 3) Z 
*100 

62 A“INT(Z/l000):IFA=K+1THENK=K+ 
1 :GOSUB82:GOSUB82:M=M+1 

63 IFM<1THENPOKE7680,14:GOTO65 

64 FORA = 76b0TO767 9+M:POKEA,2 :NEX 
T:POKEA,14 

65 1FY=OTHENPOKE7687,14:G0T067 

66 FORA=7667T0768b+Y:POKEA,19:NE 
XT:POKEA,14 

67 IFP<1THENPOKE7702,14:RETURN 

68 FORB= 7 702TO7 701 +P:POKEB,17 : NE 
XT:POKEB,14:RETURN 

69 A=W+X:B=240:IFY<1THEN30 

72 A=A+22:C=PEEK(A):POKEA,C+l:IF 
C=140RC=9THENP0KEA,C+4 

73 POKEU-3,B:FORD=0TO200:NEXT:D= 
PEEK(A+22) 

74 IFD<>4ANDD<>NANDD<>3ANDA<8164 
THENB=B-5:POKEA,C:GOTO72 

7 5 POKEU-3,0:GOSUB93 :POKEA+30742 
,15 

76 IFCOl 4ANDC<>9THENR=R-1 

77 Y=Y-1:GOSUB65:GOTO30 

78 FORB=1T02:POKEA,C+B:GOSUB99:N 
EXT:GOSUB93:B=150 

79 R = R-1 :POKEU,36 :IFR<1THENPOKEU 
,47:GOTObl 

80 POKEU-1,B:A=R*22+W+X:C=PEEK(A 
):POKEA,C+l:FORD=0TO20Q:NEXT: 
POKEA,C-3:B=B+5:G0T079 

81 POKEW+X,23:GOSUBb3:G0TO24 

82 F0RA=47T032STEP-1:POKEU,A:POK 
EU-2,237:FORB=ITO25:NEXT:NEXT 
:POKEU-2,0 :POKEU,47 : RETURN 
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83 POKEU+1,220 :FORD=47TOJ2STEP-1 
iPOKEU,D:POKEU+1,26 :FORE=1T07 
0:NEXT:POKEU+1 ,31 

b4 NEXT:POKEU-1,0 :POKEU,47 :POKEU 
+1,30:RETURN 

85 Z=J:POKEB,3 :POKEB + 30720,2 :POK 
EV,14 :FORA=0TO40:POKEU-2,249 : 
POKEU,230:FORB=ITO5:NEXT 

86 POKEU,0 :FORB=1TO5 :NEXT:NEXT:P 
OKEU-2,0:B=150:GOTO79 

87 FORA* 779UT08185:POKEA,4 :POKEA 
+ 307 20, 1 5 :NEXT:B=220:C = 781 2:F 
ORA=1TO2 : FORD = 1TO80 

88 E=RND(0)*b+C:1FPEEK(E)=9THEN8 
8 


88 POKEE,9 :POKEE+30720,8 :NEXT:B= 

154:0=8032:NEXT:FORA*1TOS 

90 B=RND(1 )*374+7812:C*PEEK(B): X 
FC=9ORC=NTHEN90 

91 POKEB,N:NEXT:FORA*OTOl09 :POKE 
38400+A,0 :NEXT:FORA=0TO21 :POK 
E38444+A,3 

92 POKE7724+A,20:NEXT:FORA = 0TO3: 
POKE38407+A,2:NEXT:RETURN 

93 POKEA,21:POKEA+22,22:GOSUB83: 
POKEA,14 :POKEA+22,1 4 : RETURN 

99 POKEU-4,200 :FOKE»1TO10 :NEXT:P 
OKEU-4,0:RETURN 


Per ricevere gli arretrati di 


'fifl&i/'Jl'J compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome _ 

Cognome 

Indirizzo 


CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

- Anno - 

a L. 2.000 cad. per un totale di L... a mezzo 


□ assegno allegato □ contanti allegati 
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A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Ubreria JACKSON. 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci : ti aspettiamo. 




